EEEEEEEEEEEEEEE MMM MMM =UUU UUU LLL AAAAAAAAA TTTTTTTTITTTTTITT 
EEEEEEEEEEEEEEE MMM MMM = UUU UUU LLL AAAAAAAAA TTTTTTTTTTTTIITT 
EEEEEEEEEEEEEEE MMM MMM = =UUU UUU LLL ARAAARABDA TTTTTTTTTITTTITT 
EEE MMMMMM = =OMMMMMM =(UUU YUU LLL AAA AAA TTT 
EEE MAMMMM = =6MMMMM = =6UUU UUU LLL AAA AAA TTT 
EEE MAMMMM =6MMMMMM =6UUU UUU LLL AAA ABA TTT 
EEE MAM 6 OMA OM UUU LLL AAA Aan TTT 
EEE MAM OMA OMMM (UU UUU LLL AAA TTT 
EEE MAM 6 6OMMM OMMM (UU UUU LLL AAA AMA TTT 
EEEEEEEEEEEE MMM MMM = =UUU YUU LLL ABA hae TTT 
EEEEEEEEEEEE MMM MMM UUU LLL AAA AAA TTT 
EEEEEEEEEEEE MMM MMM = UUU UUU LLL TTT 
EEE MMM MAM = UUU UUU LLL AAAAAAAAAAAAAAA TTT 
EEE MMM MMM = =UUU UUU LLL AAAA TTT 
EEE MMM MMM = UUU UUU LLL ADAAAAAAAAAAAAA TTT 
EEE MMM MMM UUU LLL AA TTT 
EEE MMM MMM = UUU UUU LLL AAA ABA TTT 
EEE MMM MMM = UUU UUU LLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM = UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA ABR TTT 


| *eF [LE®*#] Dee VAXSTRING 


VV VV AAAAAA XX XX SSSSSSSS TITTTTTTTTT RRRRRRRR III NN NN GGGGGGGG 

VV Vv AAAAAA XX SSSSSSSS_ TTTTTTTTTT RRRRRRRR III] NN NN GGGGGGGG 

VV VV AA AA XX XxX $S TT RR RR II NN NN GG 

vv VV AA AA XX XX SS TT RR RR I] NN NN GG 

VV VV AA AA XX = XX $$ TT RR RR II NNNN NN GG 

VV VV AA AA XX XX SS TT RR RR I] N NN GG 

vv VV AA AA XX SSSSSS TT RRRRRRRR I] NN NN NN GG 

VV VV AA AA XX SSSSSS TT RRRRRRRR I] NN NN NN GG 

vv VV AAAAAAAAAA XX = XX S$ TT RR RR I] N NNNN GG 

vv VV AAAAAAAAAA XX = XX SS TT RR RR I] NN NNNN GG G6GGGGG 
VV VV AA AA XX XX $$ TT RR RR I] NN NN GG GG eoee 
VV VV AA AA XX XX SS TT RR RR I] NN NN GG GG cove 

VV AA AA XX AX SSSSSSSS TT RR RR IIIIII NN NN GGGGGG cece 
VV Ab AA XX XX SSSSSSSS TT RR RR III! NN NN GGGGGG eeee 

LL IIIII] SSSSSSSS 

LL I111] SSSSSSSS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] $s 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 11111 SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


HER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Composant ine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 7 


I Y FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 
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Facility: 


VAX-11 Instruction Emulator 


Abstract: 


ooo 
ooo 


The routines in this module emulate the VAX-11 string instructions. 
These procedures can be a part of an emulator package or can be 
called directly after the input parameters have been loaded into 
the architectural registers. 


The input parameters to these routines are the registers that 
contain the intermediate instruction state. 


Environment: 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 


Author: 


Lawrence J. Kenah 


Creation Date: 
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984 EMULAT.SRC aVAX XSTRING.MAR; 2 
6G Modified by: 
v04-001 Tale O05 Lawrence J. Kenah 66-Sep-1984 


he backup code for MOVTC when moving in the” forward direction 
also needs to be changed (see LJK0039) based on the relative 
sizes of the source and destination strings. 
v01-005 KDM0107 Kathleen D. Morse q “Aug-1984 
Fix bug in CMPC3. Return C clear if string tgngth is 0. 
v01-004 LJKG039 Lawrence J. Kenah 20-Jul-1984 


Mofify MOVTC backup code to reflect differences in register 
contents when gisytin strings backwards. There are two 
cases based on the relative sizes of source and destination. 


v01-003 LJK0026 Laurence J. Kenah 19-Mar-1984 
Final Cheong pass. seeas violation handler is now called 
STRING ACCVIO. Set PACK eM ACCVIO bit in R1 before passing 
control to VAXS$REFLECT _FAOLT. 


v01-002 LJKO011 Lawrence J. Kenah 8-Nov-1983 
Fix three minor bugs in MovTe ond MOVTUC. Change exception 
handling to reflect chenged implementation. 


V01-051 Original Lawrence J. Kenah 16-Aug-1982 


SOOoOooooooooQooooooo°o°oo 
SOOCOQCOCoCooooooQooQoQooooooooooo 
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jo lelelelelelelelelelelelelel ele eleleleleleleleoleolo) 
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v04-001 Miscellaneous Notes % FrSEp=19 4 97:79:38 EMULAT.SRCIJVAXSTRING.MAR; 2 . (2) | v0! 
0090 +4 a «SUBTITLE Miscellaneous Notes | 
0 6 91; The following notes apply to most or all of the routines that appear in 
Ob 35 ; this module. The comments appear here to avoid duplication in each routine. | 
300 94; 1. The VAX Architecture Standard (DEC STD 032) is the ultimate authority on | 
4 95 ; the functional behavior of these routines. A sumeary of each instruction 
00 96 ; that is emulated appears in the Functional Description section of each 
48 af ; routine header. | 
0000 99: 2. One design goal that affects the algorithms used is that these instructions 
4 130 ; can sngur exceptions such as access violations that will be reported to | 
0 101 3 users in such a way that the exception apesers to have originated at the 
0000 16 3 site of the reserved instruction rather than within the emulator. This | 
0000 103; constraint affects the algorithms available and dictates specific 
464 We : implementation decisions. 
0000 106; 3. Each routine header contains a picture of the register usage when it is 
0000 107 ; necessary to store the intermediate state of an instruction (routine) while 
44 133 : servicing an exception. 
0000 110; The delta-PC field is used by the condition handler jacket to these 
0000 111; routines when it determines that an exception such as an access violation 
0000 VN 3 occurred in response to an explicit use of one of the reserved 
0000 113; instructions. These routines can also be called directly with the input 
0000 114; parameters correctly placed in registers. The delta-PC field is not used in 
4464 142 3 this case. 
0000 117: Note that the input parameters to any routine are a subset of the | 
4364 138 : intermediate state picture. 
0000 120; Fields that are not used either as input parameters or to store | 
44 \$ : intermediate state are indicated thus, XXXXX. 
0000 138 ; 4. In the Input Parameter List for each routine, certain register fields that 
0000 124; are not used may be explicitly listed for one reason or another. These 
4444 \¢3 : unused input parameters are described as IRRELEVANT. 
0000 127: 5. Im general, the final condition code settings are determined as the side 
0000 128; effect of one of the last instructions that executes before control is | 
0000 \¢ 3 passed back to the caller with an RSB. It is seldom necessary to explicitly 
44 139 s manipulate condition codes with a BIxPSW instruction or similar means. 
444 13 ; 6. There is only a small set of exceptions that are reflected to the user in an 
00 133 ; altered fashion, with the exception PC changed from within the emulator to | 
0000 134 ; the site of the original entry into these routines. The instructions that | 
44 132 3 generate these exceptions are all immediately preceded by a 
9000 138 : MARK_POINT yyyy_N 
000 139: where YYYy is the instruction name and N is a small integer. These names 
4 140 ; map directly into instruction= and context-specific routines (located at 
0 141 ; the end of this module) that put each instruction (routine) into a 
00 146 : consistent state before passing control to a more general exception handler 
38 137 3 in a different module. 


ee 
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v04-001 DECLARATIONS ° eet 7 9}; i$ 93 EMULAT.S RC VAXSTRING.MAR; 2 " (3) vO 
6° 136 . SUBTITLE DECLARATIONS | 
0 148 ; Include files: 
$0 125 
4 139 SPSLDEF : Define bit fields in PSL | 
8 136 »NOCROSS 3 No cross reference for these 
8 137 » ENABLE SUPPRESSION ; No symbol table entries either 
444 132 PACK_DEF ; Stack usage for exception handling | 
8 139 «DISABLE SUPPRESSION ; Turn on symbol table again 
00 1 3 - CROSS ; Cross reference is OK now 
yvuve 15 
0000 loc ; Macro Definitions 
0000 161 ’ 
0000 166 oMaAcRO INCLUDE OPCODE BOOT_FLAG 
0000 16 vIF Rot DEF INED BOOT_SWITCH 
0000 164 PCO 
0000 165 INCLUDE ‘OPCODE = 0 
0000 166 - IF FALSE | 
0000 167 IF soeaet Ss <BOOT_FLAG> , BOOT 
0000 168 OPCODE'_DEF 
0000 169 INCLUDE— "OPCODE = 0 
0000 170 . 
0000 171 -ENDC 
9009 172 "ENDM _INCLUDE | 
0000 17 
0000 174 ; External declarations 
0000 175 
0000 176 - DISABLE GLOBAL 
0000 177 
0000 179 » EXTERNAL VAXSREFLECT_FAULT 
0000 13) 
0000 1 ¢ 3; PSECT Declarations: 
0000 18 
44 HT: . DEFAULT DISPLACEMENT , WORD 
0000S 136 -PSECT _VAXSCODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
0000 8188 BEGIN_MARK_POINT ; Set up exception mark points 
| 
| 
| 
i 


VAXSSTRING 
v04-001 


COOQCCOCOCOCOCOOCOCOOCOSooooO 


ooooooo 
oooooo 
oooocoo 


oS 
Cooooooeo 


G6 2 
VAX=-11 Character String Instruction Emul 16-SEP-1984 01:39:08 AX/VMS Mac 
Conditional Assembly Parameters 725 


= 
NY tet eet oe Ot AE tee | 


NM OWOONAUES WO OO NAME W @ OOONOUS Wh) — 


POPIPOPININININYIPIPININININININNONPNINYNININY 2 Oo 


MNRAS SS 1 COOOO 


v04-00 p 
=SEP=1984 17:1 EMULAT.SRCIVAXSTRING.MAR;2 >” 


» SUBTITLE Conditional Assembly Parameters 


Functional Description: 


It is possible to create a subset emulator, one that emulates 
specific reserved instructions. This capability is currently exploited 
to create a subset emulator for use by the bootstrap programs. 


An instruction is included in the full emulator by making an entry 
in the following table. If the optional second peconeter is present 
and equal to BOOT, then that instruction is included in the subset 
emulator used by the bootstrap code. 


»NOCROSS : No cross reference for these 
ENABLE SUPPRESSION ; No symbol table entries either 
INCLUDE MOVT 

INCLUDE MOVT 

INCLUDE CMPC3 , BOOT 

INCLUDE cCmMPC5 , BOOT 

INCLUDE SCANC 

INCLUDE SPANC 

INCLUDE LOCC , BOOT 

INCLUDE SKPC 

INCLUDE MATCHC 

_ INCLUDE CRC 

DISABLE SUPPRESSION ; Turn on symbol table again 

- CROSS ; Cross reference is OK now 
-NOSHOW CONDITIONALS 
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v04-001 VAX$MOVTC = e Translated Characters iat 1 09:79:92 LEMULAT. SREIVAXSTRING MAR; 2 ’ (8) 
» SUBTITLE VAX$MOVTC = Move Translated Characters 


Functional Description: 


The source string specified by the source length and source address 
operands is translated and replaces the destination atring specified by 
the destination wanecs and destination address operands. ranslation is 
Bgfone® tshes by using each byte of the source string as an index into a 
256 byte table whose zeroth entry address is specified by the table 
address operand. The byte seveqtee replaces the byte of the destination 
string. If the destination string is om gs than the source string, the 
highest addressed bytes of the Sest ine ion 

fill operand. : the destination string is shorter than the source 
nates f the highest addressed bytes of the source string are not 
translated and moved. The operation of the instruction is such that 
overlap of the source and destination strings does not affect the 
result. If the destination seeing overlaps the translation table, the 
destination string is UNPREDICTABLE. 


Input Parameters: 


string are replaced by the 


The following register fields contain the same information that 
exists in the operands to the MOVTC instruction. 


+ alee 
R2<7:0> 
R4<15:0> 
R5 


srclen Length of source string 
srcaddr Address of source string 
l Fill character 
tbladdr Address of 256-byte table 
dstlen Length of destination string 
dstaddr Address of destination string 


| 

In addition to the input parameters that correspond directly to 

operands to the MOVTC instruction, there are other input parameters 

to this routine. Note that the two inixxxlen peceneters are only 

used when the MOVTC_V_FPD bit is set in the FLAGS byte. 
| 
| 
| 
| 
| 
| 


R2<15:8> = FLAGS Instruction-specific status 
The contents of the FLAGS byte must be zero (MBZ) on entry to this 
routine from the outside world (through the emulator jacket or by 
a JSB call). If the initial contents of FLAGS are not zero, the 
actions of this routine are UNPREDICTABLE. 


There are two other input parameters whose contents depend on 
the settings of the FLAGS byte. 


MOVTC_V_FPD bit in FLAGS is CLEAR 


RO<31:16> = IRRELEVANT 
R4<31:16> = IRRELEVANT 


MOVTC_V_FPD bit in FLAGS is SET 


RO<31:16> = inisrclen Ini 
R4<31:16> = inidstlen Ini 


; Intermediate State: 


ngth of source string — 
ngth of destination string 
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31 23 15 07 00 
goeseeeeer cree eceoce peewee esaecasascoe tone naemnece secs $e wwe manrecawenmes + 
' initial srclen ' srclen i : RO 
Goeeeeeeeceoeoeoeeces $wewonmeonrormenr oman e ge meeceonereoasaooe dew wrerereeneeeercece + 
' srcaddr i = R1 
feet ene naan eae me g-eoserewnwmare ro eos tower es ocemnaenaesee tem emn renee em eecen a +} 
' delta-PC ' XXXX ' FLAGS ' fill t : R2 
fees eceeennceeanes Feo ereceero aoe ecco oea tFowmoennezreene sce fem neaoneawoemaooe + 
H tbladdr i : R3 
¢eweecewome ran cesce fw oe em ew wo fer eweenraneesoococscee pes eeren scene wera + 
' initiai dstlen i dstlen i : R4 
$weereretreseesccece $-wmonrececemencaeece tear eon ean reser ecene ter erew er ewe scceerce oa 
{ dstaddr i : RS 
teem oenen wos eecece pocer mmr some nwrenae feeoeanemewosr ene Poonam ee mre n waco + 


Output Parameters: 
Source string longer than destination string 


RO = Number of bytes remaining in the source string 

R1 = Address of one byte beyond last byte in source string 

. 0 that was translated (the first untranslated byte) 

tbladdr Address of 256-byte table 

R4 = 0 (Number of bytes remaining in the destination string) 

R5 = Address of one byte beyond end of destination string 
Source string same size as or smaller than destination string 

RO = 0 (Number of bytes remaining in the source string) 

4 s Address of one byte beyond end of source string 

R3 = tbladdr Address of 256-byte table : 

R4 = 0 (Number of bytes remaining in the destination string) 

R5 = Address of one byte beyond end of destination string 


Condition Codes: 


N <= srclen LSS dstlen 
Z <= srclen EQL dstlen 


C <= srclen LSSU dstlen 
Side Effects: 
This routine uses up to four longwords of stack space. 


-ENABLE LOCAL_BLOCK 


VAXSMOVTC: : 
PUSHL R4 3; Store dstlen on stack 
PUSHL RO 3; Store srclen on stack 


ASSUME MOVTC_B_FLAGS EQ 9 ; Insure that FLAGS are in R2<15:8> 
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952 08 € 04 39 BBS #<MOVTC_V_FPD+8>,R2,5$ ; Branch if instruction was interrupted | 
83 AE 6E— 8 38 40 MOVW (SP) ,2¢SPP ; Set the initial srclen on stack . 
06 AE O04 AE B 41 MOVW © &(SP$,6 (SP) ; Set the initial dstlen on stack 
5A OD 1 ts 5$: PUSHL : Save R10 so it can hold handler 
1 4 ESTABLISH_HANDLER - 
1 44 STRING_ACCVIO ; Store address of condition handler 
54 «54 5 1 45 MOVZWL R4,R4 ; Clear unused bits of dstlen 
ees 18 46 BEQL 408 : ALL done if zero 
50 3650 7 838 4 MOVZWL RO,RO ; Clear unused bits of srclen 
es 48 BEQL = 20 : Add fill character to destination 
55 1 oO1 49 CMPL R1,R5 ; Check relative position of strings 
ae, 29 BLSSU MOVE_BACKWARD ; Perform move from end of strings 
0027 26 ; This code executes if the source string is at a LARGER virtual address 
0027 53 ; than the destination gtr ing. The movement takes place from the front 
8 i 23 ; (small address end) of each string to the back (high address end). 
0027 356 MOVE_FORWARD: 
52 DD 0027 57 PUSHL R2 ; Allow R2 (fill) to be used as scratch 
54 50 C2 0029 58 SUBL RO,R4 ; Get difference between strings 
04 1E€ 002C 59 BGEQU 10$ : Branch if fill work to do eventual ty 
50 OC AE 3C 83 E $ MOVZWL 12(SP),RO 3; Use dstlen (saved R4) as srclen (RO 
003 6¢ MARK_POINT MOVTC_1 
52 81 9A 003 63 108: MOVZBL (R1)+,R2 ; Get next character from source 
003 64 MARK_POINT MOVTC_2 
85 6342 90 0035 65 MOVB (R3)CR2],(R5)F 3; Move translated character 
F650 =FS Onee $6 SOBGTR RO,10$ ; Source all done? 
52 8E 00 Bate 68 MOVL (SP)+,R2 ; Retrieve fill character from stack 
54 05 O03F 69 TSTL RG 3 Do we need to fill srythiog? 
56 = 15 Opes ey BLEQ 80$ 3; Skip to exit code if no fill work 
0043 i MARK _POINT MOVTC_3 
85 52 90 004 73 20$: MOVB R2,(R5)+ 3; Fill next character 
FA 54 =F5 boes a SOBGTR R4,20$ 3; Destination all done? 
0049 6 3; This is the common exit path. R2 is cleared to conform to its output 
0049 77 ; setting. The condition codes are determined by the original lengths 
984 oS ; of the source and destination strings that were saved on the stack. 
52. D4 0049 80 30S: CLRL R2 : R2 is zero on return 
5A 8E€ 00 0048 81 MOVL (SP)+,R10 3; Restore saved 
6E 6E FO ar 7 O4F Be ASHL  #-16,(SP),(SP) : Get initial srclen 
04 AE 04 AE FO BF 7 5 ASHL  #-16,4(SP5,4(SP) : Get initial dstlen 
8E 8E D1 OO5A 84 CMPL (SP)+,(SP)+ 3 Set condition codes 
05 O90 85 RSB 
O5E Ha 3; The following instruction is the exit path when the destination string 
bee 3 3; has zero Length on input. 
53.lC SOC bat H 40$: MOVZWL RO,RO 3; Clear unused bits of srclen 
E6 11 006 31 BRB 30$ : Exit through common code | 
é 38 ; This code executes if the source string is at a SMALLER virtual address 
6 94 ; than the destination string. The movement takes place from the back 
006 95 ; (high address end) of each string to the front (low address end). 
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38 MOVE _BACKWARD: 
ADDL = R4RS 

SUBL  RO.R4 


BGTRU 308 
MOVZWL 8(SP),RO 
BRB 60$ 


Point R5 one byte beyond destination 
Get amount of fill work to do 

Branch to fill aoe if work to do 
Use dstlen (saved R4) as srclen (RO) 
Skip loop that does fill characters 


WA 


MARK_POINT MOVTC_4 

50$: MOV R2,-(R5) ; Load fill characters from the back 
SOBGTR R4,50$ 3; Continue until excess all done 

60$: ADDL RO,R1 : Point R1 to ‘modified end’ of source 


; Move transtaled characters from the high-address end toward the low-address 
; end. Note that the fill character is no longer needed so that R2 is 
; available as a scratch register. 


MARK_POINT MOVTC_5 
708: MOVZBL =(R1),R2 3; Get next character 
MARK_POINT MOVTC_6 
MOVB (R3)CR2],-(R5) : Move translated character 
SOBGTR RO,70$ ; Continue until source is exhausted 


At this point, R1 points to the first character in the source string and R5 
points to the first character in the destination eer ine. This is the result 
of operating on the strings from back to front (high-address end to 
low-address end). These registers must be modified to point to the ends of 
their respective strings. This is accomplished by using the saved original 
sengths of the two strings. Note that at this stage of the routine, Re is 
no longer needed and so can be used as a scratch register. 


MOVZWL 6(SP),R2 ; Get original source length | 

ADDL P ; Point RI to end of source string 
MOVZWL 10(SP),R2 ; Get original destination length 

ADOL R2,R5 ; Point R5 to end of destination string 


If R1 is negative, this indicates that the source string is smaller than the 
destination. R1 must be readjusted to point to the first byte that was not 
translated. RO, which contains zero, must be loaded with the number of bytes 
that were not translated (the negative of the contents of R4). 


TSTL R4 : pry more work to do? 
BEQL 30$ ; Exit through common code 
ADDL R4,R1 ; Back up R1 (R4 is negative) 


The exit code for MOVE_FORWARD also comes here if the source is longer than 
(or equal to) the destination. Note that in the case of R4 containing zero, 
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444 ; some extra work that accomplishes nothing must be done. This extra work in 
ret the case of equal strings avoids two extra instructions in all cases. 

447 80S: MNEGL R4,RO ; Remaining source length to RO 

+38 CLRL R4 ; R4 is always zero on exit 

rt BRB 30$ ; Exit through common code 

451 - DISABLE LOCAL _BLOCK 
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a » SUBTITLE VAX$MOVTUC = Move Translated Until Character 

: Functional Description: 

The source string specified by the source length and source address 
operands is translated and replaces the destination string specified by 
the destination length and destination address operands. Translation is 


accomplished by using each byte of the source scring as index into a 256 
byte table whose zeroth entry address is specified by the table address 


MOVTUC_V_FPD bit in FLAGS is SET 


RO<31:16> = inisrclen Initial length of source string 
R4<31:16> = 


i36 
Hh 
136 3 
460 ; 
461 ; 
of 
VA 404 ; operand. The byte selected replaces the byte of the destination string. 
OA 465 ; Translation gon inues until a translated byte is equal to the escape 
OA £98 3 byte or until the source string or destination string is exhausted. If 
OA 467 ; translation is terminated because of escape the condition code V-bit is 
O0A 468 ; set; otherwise it is cleared. If the destination string overlaps the 
QOOAO 469 ; table, the destination string and registers RO sorours R are 
00A0 470: UNPREDICTABLE. If the source and destination strings overlap and their 
Spas 471 ; addresses gre not identical, the destination string and registers RO 
O0A tts ; through R5 are UNPREDICTABLE. If the source and destination string 
BpAp iS ; addresses are identical, the translation is performed correctly. 
QOAO 475 ; Input Parameters: 
OOAO 476; 
OOAO 477 ; The following register fields contain the same information that 
Boab $78 $ exists in the operands to the MOVTUC instruction. 
OOAO 480 ; RO<15:0> = srclen Length of source string 
QOAO 3 481 ; R1 = srcaddr Address of source string 
QOA0 rt} 3 R2<7:0> = fill Escape charge ter 
QOAO 483; = tbladdr Address of 256-byte table. 
QOOAO 484 ; R4<15:0> = dstlen Length of destination string 
BRAg rf ; RS = dstaddr Address of destination string 
QOAO 487 ; In addition to the input parameters that correspond directly to 
QOOAO 488 ; operands to the MOVTUC instruction, there are other input parameters 
QOAO 489 ; to this routine. Note that the two inixxxlen persnesers are only 
BOA 43 3 used when the MOVTUC_V_FPD bit is set in the FLAGS byte. 
Bead £36 3 R2<15:8> = FLAGS Instruction-specific status 
QOAO 3 494 ; The contents of the FLAGS byte must be zero (MBZ) on entry to this 
QOAO 495 ; routine from the outside world (through the emulator jacket or by 
QOAO 496; a JSB call). If the initial contents of FLAGS are not zero, the 
BaAe rts : actions of this routine are UNPREDICTABLE. 
$040 138 3 There are two other input poreneters whose contents depend on 
sy 209 : the settings of the FLAGS byte. 
ond 308 3 MOVTUC_V_FPD bit in FLAGS is CLEAR 
AO 504; RO<31:16> = IRRELEVANT 
AQ 202 5 R4<31:16> = IRRELEVANT 
OA0 06 ; 
07 ; 
08 ; 
09 ; 
510 ; 
511; 


inidstlen Initial length of destination string 
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° 1 ; Intermediate State: 
A 14; 31 
A 15 g Feces oeooe Reda See ee Bet PES eeaonuea eam 07 See ee aA 
A 18 : H initial srclen ' srclen + : RO 
OA ! : erie ean eeeeoen Sn ee eae eT ee oem oe $-oeeeeeceeoooeeoeeco ° at 
yy 218 : + ee ee wm aaacnmaecet}oeeosae SE aay we wee er ene me were tenn nme nen en eee > ¢ 
QOD 520 ; H delta-PC H XXX H FLAGS H esc i : R2 
OA 5 1 2 teem ee eee men eoce ef omer meme ero merece ftemomeecaene eee ae $p}oreeae nn eseoea ee + 
3H 5 ¢ ; H tbladdr i : R3 
BRA 3 few eeeae ewan a bm me ere toca cerereernenmce penance s eee ees o ne oe 
OA ; 4; 1 initial dstlen ' dstlen i : R4 
Bead 2 My Mi eeecoeoacoae weowsen cas poenrere eeamae Tpetnaae were enaan moa Foor eosmreceesenenee 4 RS 
O0A0 2 7 : A Seer ern eeeanan a eo = ET RE Bhs oh ae we ne see ae eS + en ee ee ee ee > . 
QOAO 528; 
OOAO 529 ; Output Parameters: 
QOAO 530 ; 
Q0A0 23) ; The final state of this instruction (routine) can exist in one of 
QOA0 3 ; three forms, depending on the relative lengths of the squrce and 
OOAO 533; destination strings and whether a translated character matched the 
QOOAO 534; escape character. 
OOAO 535; 
Boag 238 ; 1. Some byte matched escape character 
OOAO «5538 : RO = Number of bytes remaining in the source string (includin 
O0OAO 539; the byte that caused fhe escape) ° ° 
Bead 329 : a) . Address of the byte that caused the escape 
00A0 248 : R3 = tbladdr = Address of 256-byte table 
QOOAO 543; R4 = Number of bytes fe ttn. in the destination string 
BOA ate : R5 = Address of byte that would have received the translated byte 
00AO 546 ; 2. Destination string exhausted 
QOOAO 547 ; 
OOAO 548 ; RO = Number of bytes remaining in the source string 
Bead 203 : R} = Address of the byte that resulted in exhaustion 
QOA 551 ; R$ = tbladdr Address of 256-byte table 
QOA 236 ; R4 = 0 (Number of bytes remaining in the destination string) 
Baap 227 : R5 = Address of one byte beyond end of destination string 
GOA $22 ; 3. Source string exhausted 
OAO 557: RO = 0 (Number of bytes remaining in the source string) 
DOD 228 : R sd Address of one byte beyond end of source string 
AQ 560 ; R3 = tbladdr Address of 256-byte table 
A 61; R4 = Number of bytes Fonetatng in the destination ete ing 
ae $¢ ; R5 = Address of byte that would have received the translated byte 
| rt: : Condition Codes: 
n9 96 : N <= srclen LSS dstlen 
A 67 ; Z <= srclen EQL dstlen 
‘AO 68 ; V <= set if terminated by escape 
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: $8 ; C <= srclen LSSU dstlen | 
A A : Side Effects: 
OA rs 3 This routine uses five longwords of stack. | 
O0A 75° | 
O0h 6 -ENABLE LOCAL_BLOCK 
OA 78 VAXSMOVTUC:: 
54 DD OOA 79 PUSHL R4 ; Store dstien on stack 
50 oD DOAg 289 PUSHL RO ; Store srclen on stack 
BM 288 ASSUME MOVTUC_B_FLAGS EQ 9 ; Insure that FLAGS are in R2<15:8> 
0952 08 £0 QOAS 584 BBS #<MOVTUC_V_FPD+8>,R2,5$ ; Branch if instruction was interrupted 
O02 AE 6€ 860 QOA8 585 MOVW (SP) ,2(SP) : Set the initial srclen on stack 
06 AE 04 AE 0 QOAC 288 MOVW 4(SP5 ,6(SP) ; Set the initial dstlen on stack 
54 54 § 0081 23 5$ MOVZWL R4,R4 ; Clear unused bits of dstlen 
4F 13 0O0B4 588 BEQL 50$ ; Almost done if zero length 
50 50 «63¢ 0086 589 MOVZWL RO,RO ; Clear unused bits of srclen 
38 13 0089 590 BEQL =: 40 ; Done if zero length 
5A DD O00BB 591 PUSHL R10 ; Save R10 so it can hold handler 
00BD 238 ESTABLISH_HANDLER - 
00OBD 59 STRING_ACCVIO ; Store address of condition handler 
57 DD O0C2 594 PUSHL R7 3; We need some scratch registers 
56 §6DD Bee e e32 PUSHL R6 3 
00C6 597 ; Note that all code must now exit through a code path that restores R6 | 
00C6 598; - and R10 to insure that the stack is correctly aligned and that these 
Bore 238 3; register contents are preserved across execution of this routine. | 
00C6 601 ; The following initialization routine is designed to make the main Loop 
Bare o0¢ 3; execute faster. It performs three actions. 
00¢6 604 : R7 <= Smaller of RO and R4 (srclen and dstlen) 
Bore 606 : Larger of RO and R4 is replaced by the difference between RO and R4. 

PY | 
b0c6 608 ; Smaller of RO and R4 is replaced by zero. 
00C6 610 : This initializes RO and R4 to their final states if either the source 
00C6 611 ; string or the destination string is exhausted. In the event that the loop 
00C6 oi¢ 3; is terminated through the escape path, these two registers are readjusted 
00C6 615 ; to contain the proper values as if they had each been advanced one byte 
bore et? 3; for each trip through the Loop. 

54 50 (C2 b0c6 616 SUBL RO,R4 ; Replace R4 with (R4-R0) 
07 «TF b0c9 617 BLSsu 108 : Branch if srcven GTRU dstlen 
3 o3) 3; Code path for srclen (RO) LEQU dstlen (84). R4 is already correctly loaded. 
57 50 00 OOCB 621 MOVL RO,R7 : Load R7 with smaller (RO) 
50 4 cf 6 ¢ CLRL RO ; Load smaller (RO) with zero 
09 «11 4 ° ? BRB 20$ ; Merge with common code at top of loop 
bs 625 ; Code path for srclen (RO) GTRU dstlen (R4). 


Wine A A BLE tartan Foe eee ES 2! 
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D 6 
se. we | 4 a0p 6 : 108: MOVZWL 16(SP),R7 ; Load R7 with smaller (use saved R4) 
0 4 CE D 6 8 MNEGL R4,RO ; Load Larger (RO) with ABS(R4-R0) 
D4 94 ? 3 CLRL R4 ; Load smaller (R4) with zero 
3S ? 1 ; The following is the main loop in this routine. 
ODB 6 g MARK_POINT MOVTUC_1 
56 81 9A QODB 634 208: MOVZBL (R1)+,R6 ; Get next character from source string 
ODE 635 MARK_POINT MOVTUC_2 
56 6346 9A 00D 636 MOVZBL (R3)CR6],R6 ; Convert to translated character 
5 36 91 OOE 637 CMPB R2,R6 ; Does it match escape character? 
23 13 OOES 638 BEQL _ ESCAPE : Exit loop if yes 
Q0E7 639 MARK_POINT MOVTUC_3 
85 56 90 QOE7 640 MOVB R6,(R5)+ ; Move translated character to 
QOEA 641 ; .destination string 
se Sy. FS BREA otg SOBGTR R7,20$ :; Shorter string exhausted? 
OOED 644 ; The fol heuiag exit path is taken when the shorter of the source string and 
Beep or? 3 the destination string is exhausted 
56 8E€ 7D OOED 647 308: mMOVa (SP)+,R6 ; Restore contents of scratch register 
SA 3 dO pore 648 MOVL (SP)+,R10 ; Restore saved R1 
5 DS OOF 649 40$: CLRL R2 ; R2 must be zero on output 
6—E 6€ FO 8F 78 OOFS 650 ASHL #-16, (SP), (SP) 3; Get initial srclen 
04 AE 04 AE FO BF 78 OOFA 651 ASHL = #-16,,4(SP5 ,4(SP) ; Get initial dstlen 
8E 8E Di 0101 636 CMPL (SP)+,(SP)+ ; Set condition codes (V-bit always 0) 
05 Bibe oe? RSB ; Return 
0105 655 ; This code executes if the destination string has zero length. The source 
Bio8 638 ; length is set to a known state so that the common exit path can be taken. 
50 50 3¢ 0105 658 50$: MOVZWL RO,RO :; Clear unused bits of srclen 
E9 «11 gine $23 BRB 40$ ; Exit through common code 
010A 661 ; This code executes if the escape character matches the entry in the 
010A 662 ; 256-byte table indexed by the character in the source string. Registers 
010A 663 ; RO and R4 must be adjusted to indicate that neither string was exhausted. 
QO10A 664 ; The Last step taken before return sets the V-bit. 
S108 ee ESCAPE 
51 D7 Q10A 667 DECL R1 ; Reset R1 to correct byte in source 
2s D4 010C 668 CLRL Re ; R2 must be zero on output 
2 ce Bi9e 66° ADOL R7,RO ; Adjust saved srclen 
4 ea: 11 670 ADDL R7,R4 ; Adjust saved dstlen , 
56 8E 7D 0114 671 mMOVa (SP)+,R6 3; Restore contents of scratch registers 
5A 8E 00 0117 ore MOVL (SP)+,710 ; Restore saved 
6— 6€ FO 8F 78 O1IA 67 ASHL #-16, (SP), (SP) ; Get initial srclen 
04 AE 04 AE FO 8F 78 11F 674 ASHL #-16.4(SP5 ,4(SP) ; Get initial dstlen 
8E 8— D1 0126 675 CMPL (SP)+,(SP)+ ; Set condition codes (V-bit always 0) 
02 68 0129 ore BISPSW #PSLSM_V ; Set V-bit to indicate ESCAPE 
05 at . of $B ; Return 
b15¢ re .DISABLE LOCAL_BLOCK 
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3c 685 .SUBTITLE VAXSCMPC3 = Compare Characters (3 Operand) | 

1gC 685 ; Functional Description: | 

10C 687 ; The bytes of string 1 specified by re Lengsh and address 1 operands are 

1eC = 688 ; — with the bytes of string 2 specified by the length and address | 

12C = 689 ; operands. Comparison proceeds until snoaues tty is detected or all the 

12C 690 ; bytes of the strings have been examined. Condition codes are affected 
012C 691 ; by the result of the last byte comparison. Two zero length strings 
4 : $36 ; compare equal (i.e. 2Z is set and N, V, and C are cleared). 
4 : o3e 3 Input Parameters: | 
012C 696 ; RO<15:0> = Len Length of character strings 
012C 697 ; R1 = srciaddr Address of first character string (called $1) 
4 : o38 ; R3 = src2addr Address of second character string (called $2) 
012C 700 ; Intermediate State: 
Oise fon; 23 15 07 00 
012C oe : $eeececccccececce $eweeccocococcecn $oewccecececoccocn $ewececcccn eocccce + 
012C 704 ; H delta-PC H XXXX H len : : RO 
01 2c 705 3 $e newness ran ewomes pe owen eaawraneas foe memes eee eee mee rw er ee oem ome ema + 
012C 706 ; ' srcladdr ; : R1 
012C 707 : Poeeeeeeeoeseoeoces gem orwmanawemmoma nme $ amen ecooe ~ eee oe tome nmocncrsanneones + 
012C 708 ; ' XXXXX + : R2 
012C 709 : eet $eweeceoceceocoecce ¢eeeeccecececocccn $eowenoceoceececes + 
012C 86710 ; H src2addr : : R3 
012C 711 : eee $owecesescoscccecn $eeoeceeccocccecs {eeececceececocon + 
bist ar : 
Q12C 713 ; Output Parameters: 
O12C) 386714 ; 
Olec 6715.3 Strings are IDENTICAL 
012C 86716 ; 
012C 36717 ; RO = 0 
O12c) = 718 ; R1 = Address of one byte beyond end of $1 
O12C 86719 ; R2 = 0 (same as RO) 
Bist £60 ; R1 = Address of one byte beyond end of S2 
a3¢ 13¢ ; Strings DO NOT MATCH 
O1eC 724 ; RO = Number of bytes left in strings (including first byte 
O12¢ §8=725 that did not match) 
81 : g § ; R} s Adress of nonmatching byte in S1 | 
Oige 728 ; iS © address of nonmatching byte in S2 | 

: ; 4 ? ; Condition Codes: | 

Pa ¢ ; In general, the condition codes reflect whether or not the strings 

1¢C 0=— 733. are considered the same or different. In the case of different 

O12C = 734 strings, the condition codes reflect the result of the comparison 

: : if 73 that indicated that the strings are not equal. 

isc 93 Strings are IDENTICAL 

i} are: 

i}. es N <- 0 
| 
| 
| 


dD 3 
VAXSSTRING VAX=11 Character String Instruction Emul 16-SEP-1984 01:30:09 VAX/VMS Macro V04-00 Page 
v04-001 VAXSCMPC3 = Compare Characters (3 Operan S =SEP- ets 7 9}; #3: 93 LEMULAT. SRCIVAXSTRING.MAR; 2 - 
12C 740; 2 <- 1 ; (byte in $1) EQL (byte i ) 
ra) c yte in $1) EQL (byte in S2 
12¢ 548 : 
} : ee ; Strings DO NOT MATCH 
106 746: N <= (byte in $1) LSS (byte in $2) 
4 : oe ; i = (byte in $1) NEQ (byte in $2) 
1 C 149 C <= (byte in $1) LSSU (byte in $2) 
1 C £31 ; where ‘byte in $1" or ‘byte in $2'' may indicate the fill character 
012C £38 : Side Effects: 
012C 754; 
ole, t92 ¢ This routine uses one Longword of stack. 
012C 756 :- 
012C 757 
012C 758 VAXSCMPC3:: 
50.606500CUSECOlet2O 759 MOVZWL RO,RO ; Clear unused bits & check for zero 
|; ae 4 : £68 BEQL 20$ ; Simply return if zero length string 
5A DD 0131 76 PUSHL R10 ; Save R10 so it can hold handler 
0133 76 ESTABLISH HANDLER - 
te ree STRING_ACCVIO 3; Store address of condition handler 
ote 766 MARK _POINT CMPC3_1 
81 91 0138 767 10$: CMPB” (R3)4+,(R1)+ 3; Character match? 
0B 12 #0138 768 BNEQ 30$ 3; Exit loop if different 
F8 50 F5 b178 768 SOBGTR RO,10$ 
3142 44) 3; Exit path for strings IDENTICAL (RO = 0, either on input or after loop) 
5A 8E DO 0140 ae MOVL (SP)+,R10 3; Restore saved R10 
52. D4 0143 774 208: CLRL R2 : Set R2 for ety oo velue of 0 
50 D5 0145 775 TSTL RO 3; Set condition co 
05 Biee 76 RSB ; Return point for IDENTICAL strings 
Bie ore ; Exit path when strings DO NOT MATCH 
5A 8E DO 0148 780 30$: MOVL (SP)+,R10 ; Restore saved R10 
3 50 DO 0148 781 MOVL RO,R ; RO and R2 are the same on exit 
7 71 91 O14E ree CMPB -(R1),=-(R3) ; Reset R1 and R3 and set condition codes 
05 0151 £78 RSB ; Return point when strings DO NOT MATCH 


VAX 
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es . SUBTITLE VAXSCMPC5 = Compare Characters (5 Operand) 
: Functional Description: 


| 
The bytes of the tee 1 spect fied by the length 1 and address 1 
no are compar vind the _ of the string 2 specified by the 
Length 2 and address 2 operands. one string is longer than the 
other, the enor yer gerne is patcantusl ty — ed to the length of the 
te lh by appenens ng (at higher addresses) pytes, ‘ val to the fill 
operand omparison proceeds until inequal he etected or all the | 
bytes of the strings have been examined. Condition codes are affected 

the result of the last byte comparison. Two zero length strings 
compare equal (i.e. 2 is set and N, V, and C are cleared). 


Input Parameters: 


RO<15:0> = Len Len peer of first character string (called $1) 
R023, 16> = fill Fill character that is used when strings have 
different Lengths 

= addr Address of first character string 
R3<15:0> = len Length of second character string (called S2) 
R3 = addr Address of second character string 


Intermediate State: 


feeeceeceesocoose 


sreilen i + RO 


H srcladdr ; : R1 
be mw meee ne oe oe wre sneer ee neo mee $e rem m ewer emo ene e poem or emer eor ee eecen = + 
H KXXKX 1 srealen + : R2 


: sre2addr i : R3 
pew ee eco ecewe cee fener noose semen peo c em ee eee eee oes eee 7 


| 
Output Parameters: | 
Strings are IDENTICAL 
0 
Address of one byte beyond end of $1 
0 (same as R | 
Address of one byte beyond end of S2 
Strings DO NOT MATCH | 


Number of bytes ponemwine in $1 when mismatch detected 
ed before mismatch detected) 


» 
_ 
nnunn 


@D 
oO 
u 


or zero if S1 exhaus 

= Address of Bindi byte in S1 
R2 = Number of bytes pone tning in S2 when mismatch detected 
(or zero if S2 exhausted betore mismatch detected) 
R3 = Address of nonmatching byte in S2 


Condition Codes: 


BBE FAWN WII NIIDINIPIDINININPININID 2 2 PO OP HS MQOOCODOOOCOCOCOCOWOOOOOOOOOMM@O O-r 
WR = OOD NAUE WIN 9 OO NAME WIN OOO NAME WN 0 ODO NAU EWR 0 OONOAUES WR OOOn 


Bete Se Se Ge Ge Ge Ge Ge See Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge 


fae le we lw le le eww) wl eww ole lw alo wlan oleae alolelelelelelelelelelelelelelelolelelelelelelelelelolelolelelololo—me fF.) 
ak ad od oh a dd 


In general, the condition codes reflect whether or not the strings 


VAX 
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are considered the same or different. In the case of different 
strings, the condition codes reflect the result of the comparison 
that indicated that the strings are not equal. 


Strings are IDENTICAL 


0 
Z <- 1 ; (byte in $1) EQL (byte in $2) 


Strings DO NOT MATCH 


(byte in $1) LSS (byte in $2) 
0 3; (byte in $1) NEQ (byte in $2) 


C <- Coyte in $1) LSSU (byte in $2) 
; where ‘byte in S1'' or “byte in S2'' may indicate the fill character 
: Side Effects: 
This routine uses two longwords of stack. 


AOQOOUMIVIVIVIVIMNUIVIUIE SELES Ore 
WRI OWONOULSWN"OOOnNOus F 


.ENABLE LOCAL_BLOCK 


VAXSCMPCS: : 
PUSHL R10 ; Save R10 so it can hold handler 
ESTABLISH_HANDLER - : 
STRING_ACCVIO ; Store address of condition handler 

DD PUSHL R ; Save register 
78 ASHL #-16 RO,R4 ; Get escape character. 
3¢ MOVZWL RO,RO ; Clear unused bits & is $1 length zero? 
13 BEQL o$ : Branch if yes 
3C¢ MOVZWL R2,R2 ; Clear unused bits & is S2 Length zero? 
13 BEQL §=- 308 


Main loop. The following loop executes when both strings have characters 
remaining and inequality has not yet been detected. 


THE FOLLOWING LOOP IS A TARGET FOR FURTHER OPTIMIZATION IN THAT THE 


PD \ PP WUIWOD OF SPP PIP INIPPINPINIPINPININIPOPIPIPIPIPIPUPIPIPIPIPININPYNPYNY os 


PAGOSA OO OCOSMMMAM INIA A UU UI UU UU UU Urn 


o 
J 
fa De Dae | ne) enw |e nw we we ae we we we ee we we ae ae ae fw aw we eg ww lw lola lo lololololololeolelolelelelololealeleoleolaloleolalelolololo me f.) 
FW OOONAUE WN O OONAUES WN CO OONOUS 
ee 


ed ed ad ed SS — 2 2 2 2 — 2 4 2 SS 2 2 a 2 2 2 a ss 


6A ; LOOP SHOULD NOT REQUIRE TWO SOBGTR INSTRUCTIONS. NOTE, THOUGH, THAT 
1 3; THE CURRENT UNOPTIMIZED LOOP IS EASIER TO BACK UP. 
6A MARK_POINT owes! 
91 6A 10$: CMPB (R1)+,(R3)+ ; Characters match? 
ig 6D BNE 3; Exit loop if bytes different 
F F SOBGTR RO,20$ ; Check for $1 exhausted 
; 3; The next test determines whether S2 is also exhausted. 
D7 ? $ DECL Re ; Put R2 in step with RO 
12 4} BNEQ 60$ ; Branch if bytes remaining in S2 
76 
76 


3; This is the exit path for identical strings. If we get here, then both 


0 ; RO and R2 are zero. The condition codes are correctly set (by the ASHL 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Sete & 
za o= 
A AA 
se 
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176 ©6901 ; instruction) so the registers are restored with a POPR to avoid changing 
178 3 § 3 the condition codes. | 
176 904 IDENTICAL: 
0410 8F BA 0176 905 POPR #*M<R4,R10> ; Restore saved rogrtstere 
05 rh 809 RSB ; Exit indicating IDENTICAL strings 
EC 52 FS Q178 908 208: SOBGTR 2,108 ; Check for $2 exhausted | 
OPE 910 ; The following Loop is entered when all of $2 has been processed but 
BIzE ai) ; there are characters remaining in $1. In other words, | 
Oe 818 RO GTRU 0 | 
O17E 914 ; R2 EQL 0 
O17E 915; | 
pire 318 ; The remaining characters in S1 are compared to the fill character. | 
O17E 918 MARK_POINT CMPC5_2 
54 81 91 OQI7E 919 308: CMPB (R1)+,R4 3; Characters match? 
05 lg 0181 320 BNEQ 40$ : Exit loop if no match 
F850 «OF HS 1 SOBGTR RO,30$ ; Any more bytes in $1? | 
ce 516 $38 BRB IDENTICAL ; Exit indicating IDENTICAL strings | 
54 71 91 0188 925 40S: CMPB ss = (R11) ,R4 ; Reset R1 and set condition codes 
ee | 0188 326 BRB NO_MATCH ; Exit indicating strings DO NOT MATCH | 
018D 358 ; The following code executes if S1 has zero length on input. If S2 also | 
st 888 ; has zero length, the routine smply returns, indicating equal strings. | 
52. 52) «=63C «6018D =: 931 50S: MOVZWL R2,R2 ; Clear unused bits. Is S2 len also zero? 
E46 13 o139 336 BEQL IDENTICAL : Exit indicating IDENTICAL strings 
$195 934 ; The following loop is entered when all of S1 has been processed but | 
O135 832 3; there are characters remaining in S2. In other words, 
0192 937 : RO EQL 0 | 
0192 938 ; R2 GTRU 0 
O192 Ps" 3 
B13 Bey 3; The remaining characters in S2 are compared to the fill character. | 
019 ae8 MARK _POINT CMPC5_3 
838 54 91 919 943 60$: CMPB R4,(R3)+ ; Characters match? 
03 le 019 944 BNEQ 708 : Exit loop if no match | 
F852 =«O#FF BIA B02 SOBGTR R2,60$ ; Any more bytes in S2? 
DA 11 BIA vt 4 BRB IDENTICAL : Exit indicating IDENTICAL strings 
73 54 «691 «019C «©6949 708: CMPB R4,-(R3) ; Reset R3 and set condition codes 
03 =o Rie oe0 BRB NO_MATCH ; Exit indicating strings DO NOT MATCH 
Q1A1 326 ; The following exit path is taken if both strings have characters 
AI 927 3 remaining and a character pair that did not match was detected. 
73° 71 «91 O1A1 955 80S: CMPB -(R1),-(R3) ; Reset R1 and R3 and set condition codes | 
1A4 328 NO_MATCH: ; Restore R4 and. laa 
0410 8F BA OI1A4 95 P #*M<R4,R10> 3; without changing condition codes 


H 3 
VAX=11 Character String Instruction Emul 
VAXSCMPCS = Compare Characters (5 Operan 
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VAXSSTRING VAX=-1 rin 5 ed tion Emul 16-SEP-1984 01:30:09 VAX/VMS Ma v04-00 
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haract -SEP-19 EMULAT.SRC CIV AXSTRING.MAR;2 
. SUBTITLE VAXS$SCANC = Scan Characters 

Functional Description: 


Y 
| ie] 
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ba De ae | ne ae) we fe we we we ae we we we www lw wlan wlan wlan olelololelololeololeolololelelolelelelelelolelelelolololalolelolol a!) 


The bytes of the string specified A the length and address operands are 
successively used to index in a 256 byte table poets zeroth entry 
address is spre!) ets by the table. edéress operand. he byte selected 
from the ta is ANDed with the mask operand. The operation continues 
until the result of the AND " non-zero or all the bytes of the string 
have been exhausted. If non-zero AND result is detected, the 
condition code Z-bit is cleoreds otherwise, the Z-bit is set. 


Input Parameters: 


SD 


RO<15:0> = Len Length of character string 
R1 = addr Address of character string 
R2<7:0> = mask Mask that is ANDed with successive characters 
R35 = tbladdr Address of 256-byte table 
Intermediate State: 
31 23 15 07 00 
pom e se eee en ececce $ ewww wenn wwe eewwn few ww ewe w wooo owen} ooo eeooooocooen=+ 
' delta-PC ' XXXX ' len + : RO 
988 : — tewwwnwnnwennenne $ ewww wweoooononne pero r once eee ceews $ewowooooowooeoone + 
989 H addr H R1 
990 teeccce wee cece wcn peoeoweooooooooooe teecnn econ eee n- pow omwwowowoeenne + 
' XXXXX ! XXX ' mask + : R2 
99 $ewewnooeeenseen= Femme enn nw ween eee toeweweeececoeee= temmooreeocoooee=- 
994 perce seer ees eeses $e eewe wwe n meee een peewee oooooeooeo= fae ee meee eee cee + 
995 
44) Output Parameters: 
44 NONZERO AND result 
00 RO = Number of bytes remaining in the ity (including the byte 
that produced the NONZERO AND resul 
4 . Address of the byte that produced the NONZERO AND result 
Rg = tbladdr Address of 256-byte table 


AND result always ZERO (string exhausted) 


RO = 0 
4 " Address of one byte beyond end of string 
R35 = tbladdr Address of 256-byte table 


Condition Codes: 

N <- 0 

Z <= RO EQL 0 
V <- 

C <- 


ee ed oo ad od oD 
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eB ae Ba a wd a ad 


tbladdr i: as 
| 
| 
The Z bit is clear if there was a NONZERO AND result. 


; | 
VAXSSTRING VAX-11 Character Strin mmetructten Emul 16-SEP-1984 01:3 AX/VMS Macro v04-00 Page 21 
Mirae th VAXSSCANC = Scan tharecters : -SEP- =}382 9}: #9: 93 YEMULAT. SRCJ VAX XSTRING.MAR; 2 . ed 
19 ! 13 The Z bit is set if the input string is exhausted. | 
1A9 1 ‘ : Side Eftucts: 
1A9 1024; 
4 : 5; This routine uses two longwords of stack. 
1A9 1 : : 
1A9 1 8 VAXSSCANC:: 
50 50 ¢ 1A9 1 MOVZWL RO,RO 3 a length string? | 
19 #1 1AC 10350 EQL 30$ : pests return if y 
SA DD O1AE. (1031 PUSHL R10 : Save R10 so it can hold handler | 
318 19 ¢ ESTABLISH HANDLER ~ 
180 1 STRING_ACCVIO ; Store address of condition handler 
54 DD 5183 Ieee PUSHL R4 ; We need a scratch register 
01B7 1036 MARK tor? SCANC_1 
54 81 9A 0187 1037 10S: MOVZBL )+,R4 ; Get next character in string 
O1BA 1038 MARK t POINT. SCANC_2 
6344 52 93 OBA 1039 BITB R2,(R3)CR4) 3; Index into table and AND with mask 
OC 12 OBE 1040 BN 3; Exit loop if NONZERO 
F4 50 F5 ouss Wea SOBGTR RO,10$ 
ike 
01C3 1908 ‘ If we drop through the end of the loop into the following code, then 
pice ee ; the input string was exhausted with no NONZERO result. 
0410 8F BA O1C3 1046 20$: POPR #*M<R4,R10> ; Restore saved registers 
52 D4 O1C7 1047 30$: CLRL R2 : Set R2 for output value of 0 
50 05 O1C9 1048 TSTL RO 3; Set condition codes 
05 O1CB 1049 RSB 3; Return 
01CC 1050 ( 
Bite 103) ; Exit path from loop if AND produced NONZERO result 
51 D7 O1CC 1083 40$: DECL R1 : Point R1 to located character 
FS 11 O1CE 1054 BRB 208 :; Merge with common exit 
| 
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VAXSSTRING VAX-11 Character String Instruction Emul 16-SEP-1984 01:30: AX/VMS Macro V04-00 Page | VAY 
Mirae th VAX$SPANC = Span Ehoretters -SEP-1984 04:39:08 LEMULAT. SREIVAXSTRING.MAR: 2 ° 6 v04 
1p 38 . SUBTITLE VAXS$SPANC = Span Characters | 
1 } $9 3; Functional Description: | 
100 1 66 3 The bytes of the string specified by . length and address operands are 
1D0 1065 ; successively used to index into a 256 byte table whose zeroth entry 
1D0 1064 ; address is epee ti ret by the table address operand. The oyte selected | 
100 1065 : from the table is ANDed with the mask operand. The operation continues 
8108 1 ¢ s until the result of the AND is zero or all the bytes of the string have 
100 1067 ; been exhausted. If a zero AND result is detected, the condition code 
0100 1068 ; Z-bit is cleared; otherwise, the Z-bit is set. 
8108 1 4 3 
100 1070 ; Input Parameters: 
01D0 1071 ; 
01D0 1976 3 RO<15:0> = Len Length of character string 
0100 1073; RA = addr Address of character strin 
01D0 1074 ; Need = mask Mask that is ANDed with successive characters 
01D0 1075 ; R = tbladdr Address of 256-byte table 
01D0 1076 ; 
01D0 1077 ; Intermediate State: 
01D0 1078 ; 
01D0 1079 ; 31 23 15 07 00 
01D0 1080 3 en oo pow nse mw nem mam oe perenne remem wae en + 
01D0 1081 ; H delta-PC ' XXXX ' len ; : RO 
01D0 1386 2 $ewecccecoccoececen $eweeoceecescocesn $eoeeccccoecceccn + 
01D0 10835 ; ' addr } R1 
01D0 1084 Fy $m mere n een en nen e peer em nw eran m nme ecan mem men amma we wo ee $e e om ewe wwe meer e ee + 
01D0 1085 ; ' XXXXX ' XXXX ' mask + s: R2 
01D0 1086 3 ¢woeeececoeoececa peeeceeceoeccescn $oeeeececeseeecooa $oeweeeecesesoocon + 
01D0 1087 ; ' tbladdr ' : R3 
01D0 1088 3 bana sworn nee sone Feet wee eee meme fre ew ne te ee em me ew renee een were nmnwe + 
01D0 1089 ; 
01D0 1090 ; Output Parameters: 
01D0 1091 ; 
01D0 1998 ; ZERO AND result 
01D0 1093; ; : 
01D0 1094 ; RO = Number of bytes repetoias in the string (including the byte 
3108 1095 ; that produced the ZERO AND result) 
810 1399 3 4 = Address of the byte that produced the ZERO AND result 
B1De 1938 3 RS = tbladdr Address of 256-byte table 
B108 1100 : AND result always NONZERO (string exhausted) 
$100 1198 3 RO = 0 : | 
8108 if ? : + = Address of one byte beyond end of string 
HE 1 $5: R35 = tbladdr Address of 256-byte table 
100 11 $ 3; Condition Codes: 
01D0 11 3 : 
1p0 11 3 N <- 0 
1D0 1110; Z <- RO EQ. 0 
100 1111; V <- 
1D0 1113 ; ire 
100 1114 ; The Z bit is clear if there was a ZERO AND result. 
| 
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racter String Instruction Emul ti db 9 91:30:09 AX/VMS Macro V04-00 
= Span Characters “SEP=1984 17:15:25 CEMULAT.SRCJVAXSTRING.MAR; 2 
1113 : The Z bit is set if the input string is exhausted. 

1117 : Side Effects: 

1119 : This routine uses two longwords of stack. 

113) 

11 § VAXSSPANC: : 

11 MOVZWL RO,RO ; Clear unused bits & check for 0 Length 
1124 BEQL 30$ 3 poly return if length is zero 
1125 PUSHL R10 ; Save R10 so it can hold handler 

11 § ESTABLISH_HANDLER - 

11 STRING_ACCVIO ; Store address of condition handler 
1 8 PUSHL R4 ; We need a scratch register 

1130 MARK_POINT SPANC_1 

1131 10$: MOVZBL (R1)+,R4 ; Get next character in string 

1132 MARK_POINT SPANC_2 

113 BITB R2,(R3)CR4I : Index into table and AND with mask 
1134 BEQL 3; Exit loop if NONZERO 

1132 SOBGTR RO,10$ 

1139 ; If we drop through the end of the loop into the following code, then 

1138 3; the input string was exhausted with no ZERO result. 

1140 20$: POPR #*M<R4,R10> ; Restore saved registers 

1141 30$: CLRL R2 ; Set R2 for output value of 0 

1138 TSTL RO 3; Set condition codes 

Be 3; Return 

11e2 3; Exit path from loop if AND produced ZERO result 

1147 40$: DECL R1 ; Point R1 to located character 

1148 BRB 20% ; Merge with common exit 
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VAXSSTRING VAX=11 Character String Instruction Emul 16-SEP-1984 01:30:09 YAX/VMS M 4- 
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> » SUBTITLE VAX$LOCC = Locate Character 
Functional Description: 


| VAY 
1) v04 


: The character operand is compared with the bytes of the yin specified 
3 by the length and address operands. Comparison continues until equality 
3 is detected or all bytes of the oteine have been compared. If equality 
$ is Sa the condition code Z-bit is cleared; otherwise the Z-bit 
; s set. 


| 
| 
; Input Parameters: | 


RO<15:0> = Len Length of character string 

RO<23:16> = char Character to be located 

R1 = addr Address of character string 

* Intermediate State: 

31 23 15 07 00 
powwow oowowenonne Few wwwew ewww mewn} eww ewww ewe eww en} coe esooeoccecoon}+ 
' delta-PC H char len H RO 
eee oooooooooee Nee ee ee errr. 
$ewowmowmwooeooone See mer, $row woooooewooene + 


Output Parameters: 


oa 

a 
+*Qa+--4+ 

be 

DD 

— 


Character Found 
RO = Number of bytes remaining in the string (including located one) 
R1 = Address of the located byte 


Character NOT Found 


RO = 0 
R1 = Address of one byte beyond end of string 
Condition Codes: 
N <- 0 
Z <- RO EQ 0 
V <- 0 
C <- 0 
The Z bit is clear if the character is located. 
The Z bit is set if the character is NOT located. 


Side Effects: 
This routine uses two longwords of stack. 
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VAXSLOCC:: ; 
5A DD PUSHL R10 ; Save R10 so it can hold handler 
ESTABLISH HANDLER - esa 
STRING_ACCVIO ; Store address of condition handler 
52 ODD PUSHL R2 ; Save register 
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VAXSSTRING VAX=-11 Character String Instruction Emul 16-SEP-1984 7:30:09 VAX/VMS Macro v04-00 Pa 5 
vou001 X$LOCC = : = wg een 1o8e Seitgios oe 7) | 


VAX$LOCC = Locate Character “S$ EMULAT.SRCIJVAXSTRING.MAR;2 
= =. we gf 78 1209 ASHL #-16,R0,R2 3; Get character to be located 
50 0 36 1210 MOVZWL RO,RO : Clear unused bits & check for 0 Length 
08} ; 1 BEQL 208 : Simply return if Length is 0 
A 4 ig MARK_POINT LOCcC_1 
81 S52 91 A 1214 10S: CMPB R2,(R1)+ 3; Character match? 
OA 13 0D 1215 BEQL 3 ; Exit loop if yes- 
F850 «FS of : 1 SOBGTR RO,10$ 
0212 1218 ; If we drop through the end of the oes into the following code, then 
0 ! : i? 3; the input string was exhausted with the character NOT found. 
0404 8F BA 8 1 1221 20$: POPR #*M<R2,R10> 3; Restore saved R2 and R10 
50 405 0216 1 ¢ TSTL RO ; Insure that C-bit is clear 
05 0218 1 ; Return with Z-bit set 
0219 1 $e 
os i2 : 2 3; Exit path when character located 
51 D7 $513 1359 30$: DECL R1 ; Point R1 to located character 
F5 #11 O218 1228 BRB 20$ 3; Join common code 
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Character -SEP- EMULAT. SR RCIV AXSTR | 

» SUBTITLE VAX$SSKPC = Skip Character | 
“Foner tenet Description: 

The po Age operand is compared with the — of the string gail he 

i 

| 


t 
i 
y the length and address operands. omparison continues until 
nequality Ae detected or all bytes of the string have been compared. 
If inequality. is detected; the condition code Z-bit is cleared; 
otherwise the I-bit is set. 
Input Parameters: 
RO<15:0> = Len Length of character string 
RO<23:16> = char Character to be skipped 
R1 = addr Address of character string 


Intermediate State: 


pewewoooeweeonene $owowowwoeoooocne 
Output Parameters: 
Different Character Found 
RO = Number of bytes remaining in the string (including 
unequal one 
R1 = Address of the unequal byte 
ALL characters in string match ‘‘char'’ 


RO 
R1 


; Condition Codes: 


0 
Address of one byte beyond end of string 


- 0 
Z <- RO EQL 0 
C <- 0 


The Z bit is clear if a character different from ‘'char’’ is located. 
The Z bit is set if the entire string is equal to ‘'char"’. 


; Side Effects: 
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6; 
ré 
8 ; 
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0; 
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This routine uses two longwords of stack. 


Vv 


AX$SKPC: 
; Save R10 so it can hold handler 


SH_HANDLER ac 
STRING_ACCVIO ; Store address of condition handler 
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ac 
- Sk 
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1 
1 
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VAXSSTRING VAX=11 Character String Instruction Emul 16-SEP-1984 01:30:09 VAX/VMS Macro V04-00 Page 27 VAX 
vive hy VAXSSKPC = skip Character ety 7 0:39:99 EMULAT.SRCIJVAXSTRING.MAR;2 (12) V04 
52 4 1289 PUSHL R2 3; Save register 
FO 8F °B 6 1290 ASHL #-16,R0,R2 3; Get character to be skipped 
50 #§ B 1291 MOVZWL RO,RO ; Clear unused bits & check for 0 Length 
08 36 BEQL =. 208 : Simply return if yes 
1294 MARK_POINT SKPC_1 
52 91 1295 10$: CMPB R2,(R1)+ 3; Character match? 
oA ig 1 38 B ; Exit loop if no 
F850 6FS CUO 129 SOBGTR RO,10$ 
BH 
8 : | 89 ; the input string was exhausted with all of string equal 
0404 8F BA 0238 1 8 20$: POPR #*M<R2,R10> ; Restore saved R2 and R10 
50 05 O23C 130 TSTL RO : Insure that C-bit is clear 
05 8 M3 : Be RSB ; Return with Z-bit set 
8 He 1306 ; Exit path when nonmatching character located 
51 07 093 1308 30$: DECL Ri 3; Point R1 to located character 
F5 11 0241 1309 BRB 20$ ; Join common code 


; If we drop through the end of the poop, aye the gene ig code. then 
o ‘'char’’. 

| 

| 

| 
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Ch te 
CH Ma 
r | 13 . SUBTITLE VAXS$MATCHC = Match Characters 
: ! 12 ; Functional Description: 
43 1 19 3 The source string spect Tied by the source length and source address 
43 1 18 3 operands is searched for a substring which matches the object string 
43 1319 ; specified by the object length and object address operands. he 
0245 1320 ; substring is found, the condition code Z-bit is set; otherwise, it is 
0243 1321; cleared. 
0243 1 ¢ : 
0 r } ? 3; Input Parameters: 
43 1325 ; RO<15:0> = objlen Length of wares string 
0243 1 § ; R = objaddr Address of object string 
0243 1 3 nesta = srclen Length of source string 
8 $3 : S ; R = srcaddr Address of source string 
0363 1 $5 3; Intermediate State: 
0243 1331 ; 
OSes 1 3 3 31 23 15 07 00 
024 133 5 - ees nace ea cocommoes toeeer meso anaounsrceuns fowesnoececos monn awe bmroe nwa e wa wrenocoane + 
0243 1334 ; ' delta-PC : XXXX ' objlen it : RO 
0243 133? ; $-oeeeeeeeesoeoeeeos 1 emener ome ae eae oe eae be ore ene mene eo eae + 
0243 1336; ' objaddr t : R1 
ost 1337 : $ewececcceccccecs $eeeeccceecconcc] $eewoeoeoooeceens $eoweeccococccccce + 
0243 1338 ; H XXXXX H srclen + : R2 
0243 1339 : $eeececcosocescon peecceceocecoescn $oeeeeeeeecoceccon Gweeceeeceseecose + 
0243 1340 ; H srcaddr | : R3 
0243 1341 3 $woceeseeccecocon $eeeeeeeesooosesa $eocececcecocoeecen $eooeeceececoececn + 
0243 1306 3 
0243 1343 ; Output Parameters: 
0243 1344 ; 
0243 13e7 : MATCH occurred 
oSe3 1346 ; 
0243 1347 ; RO = 0 ; ; 
0243 1348 ; Ri = Address of one byte beyond end of object string 
0243 1349 ; R2 = Number of bytes remaining in the source string 
bse 1320 3 R3 = Address of one byte beyond Last byte matched 
$53 1382 ; Strings DO NOT MATCH 
0243 1353 ; : 
ose 1354 ; RO = objlen Length of obiect string 
8 : : 32 3 4 = objaddr Address of object string 
034 1387 : R3 = Address of one byte beyond end of source string 
8 43 1359 ; Condition Codes: 
43 1360 ; 
0243 1361 ; N <- 0 
43 1 6 3 Z <= RO EQL 0 
43 1365; V <- 0 
a3 1365 mes 
0 43 1 $8 : The Z bit is clear if the object does not match the source 
0 " ' of 3 The Z bit is set if a MATCH occurred 
43 1369 ; Side Effects: 
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VAXSSTRING VAX-11 Character String Instruction Emul 16-SEP-1984 01:30:09 VAX/VMS Macro v04-00 Page 29 
v04-001 VAXSMATCHC = Match Charecters ets 99379592 EMULAT.SRCIJVAXSTRING.MAR; 2 7 D 
43 1370 ; 
2 ! 4 : This routine uses five longwords of stack for saved registers. | 
a3 1378 | 
: ! fe -ENABLE LOCAL_BLOCK | 
43 1376 VAXSMATCHC: | 
50 50 36 43 137 MOVZWL RO,RO ; Clear unused bits & check for 0 length 
oe 46 1378 BEQL  40$ : Simply return if Length is 
52 28 7 0248 1379 MOVZWL Re R2 ; Clear unused bits & check for 0 Length 
3 13 0248 1380 BEQL 30$ ; Return with condition codes set 
8 4D 1 4 ; _based gn RO GTRU 0 
5A ODD 4D 1 ¢ PUSHL R10 ; Save R10 so it can hold handler 
O24F 138 ESTABLISH_HANDLER - 
8 ef ! rf STRING_ACCVIO ; Store address of condition handler 
He 1386 ; The next set of instructions saves R4..R7 and copy RO..R3 to R4..R7 
57 DD 0254 1388 PUSHL R7 : 
56 OD b526 1389 PUSHL R6 $ 
. 55 DD 0258 1330 PUSHL R5 ; 
54 OD bg 3A 1391 PUSHL R4 : 
54 50 7D O25C¢ 1336 MOVQ RO,R4 : 
56 52 7D OSes 1a37 mMOVQ R2,R6 3 
OA 11 0262 1332 BRB TOP_OF __LOOP ; Skip reset code on first pass 
0264 1397 ; The following code resets the object string parameters (RO,R1) and | 
0264 1398 ; points the source string parameters (R2,R3) to the next byte. (Note 
0264 1399 ; that there is no explicit test for R6 going to zero. That test is 
Bsoe 173 3; implicit in the CMPL RO,R2 at TOP_OF_LOOP. 
0264 1406 3 In fact, this piece of code is really two nested loops. The object string 
0264 1403 ; is traversed for each substring in the source string. If no match occurs, 
0264 1404 ; then the source string is advanced by one character and the inner loop is 
0264 1405 ; traversed again. 
0264 1406 
0264 1407 RESET_STRINGS: 
56 D7 85e8 1408 DECL R6 ; One less byte in source string 
57 06 0266 1409 INCL R7 3... at address one byte larger 
50 54 7D 0268 1410 MOVQ R4,RO ; Reset object string descriptor 
52 56 7D Bs ee Vel} mova R6,R2 ; Load new source string descriptor 
6E 1218 TOP_OF_LOOP: 
= ws 6E 1414 CMPL RO,R2 ; Compare sizes of source and object 
17 1A 71) «(1415 BGT ; Object larger than source => MATCH 
0 ee 1416 MARK_POINT MATCHC_1 
83 81 91 0273 1417 10$ CMP (R1)+,(R3)+ 3; Does next character match? 
EC 12 0276 1418 BNEQ RESET STRINGS ; Exit inner loop if no match 
F850 «OF 5 b A 1017 SOBGTR RO,10$ 3; Object exhausted? 
7B 1421 ; If we drop through the loop, then a MATCH occurred. Set the correct | 
027B 14 § : oyrput parameters and exit. Note that RO is equal to zero, whic | 
a \° i : will cause the condition codes (namely the Z-bit) to indicate a MATCH. 
S52 54 «C2 28 14 3 SUBL  R4,R2 ; Subtract objlen from srclen | 
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7 208: POPR #°M<R4,R5,R6,R7,R10> ; Restore scratch registers and R10 


30$: TSTL RO : Set condition codes 
RSB 3; Return 


This code executes if the object string is zero length. The upper 
16 bits have to be cleared in R2 and then the condition codes are set 
to indicate that a MATCH occurred. 


0$: MOVZWL Re R2 ; Clear unused bits 
BRB 30$ ; Join common code 


By te te ee 


; This code executes if the strings DO NOT MATCH. The actual code state 
; that brings us here is that the object string is now Larger than the 
3; remaining piece of the source string, making a match impossible. 


50$: CLRL R2 ; R2 cenagtne zero in no match case 
eee alle ; Point R3 to end of source string 


; Join common exit code 
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» SUBTITLE VAX$CRC = Calculate Cyclic Redundancy Check 
Functional Description: 


r 
la 


na 


)| 


The CRC of the data stream described . the string descriptor is 
calculated. The initial CRC is given by inicrc_and is normally 0 or -1 
unless the CRC is calculated in several steps. The result is left in 
RO. If the polynomial is less than order-32, the result must be 
extracted from the result. The CRC polynomial is expressed by the 
contents of the 16-longword table. 


Input Parameters: 


WOOOOOOOOOVOOOOOOOOOOOO 


RO = inicre Initial CRC 

R1 = tbl Address of 16-longword table 

agree = strlen Length of data stream 

R = stream Address of data stream 

Intermediate State: 

pews seen ear e rere ¢eeceeeeeoeeoeeeos $eroe nee wmo nen ene peewee een eee mone + 
H inicre : : RO 
oases ese ee cceee bweeeescean ee ececoean poem cor swemren amen ecae poe anrenacecsoee wane be 
: tbl ; : R1 
pew maeeaenae neces eean Pee ewer ee wee een ee fe ee em meee emcee een peewee e ne eer enero mr ne + 
‘ delta-PC ' XXXX ' strlen + : R2 
tess eneeerseeceoe wae poe ewmoenececuwacenmenes te eececese amon ence = poe more er en enon aes + 
: stream i: Rs 
$ emer wre mene ae eee bwoemacreeer were n nn w= pomww enw meme on nce peewee wee ee ee em ewe + 


Output Parameters: 
Noes CRC value 


RO 
R1 
Re 0 

g Address of one byte beyond end of data stream 
Condition Codes: 


N <= RO LSS 0 
Z <= RO EQ 0 
Vv 0 


Ww 
— 
~m 
Ww 
= 
ww 
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The condition codes simply reflect the final CRC value. 
Side Effects: 

This routine uses three longwords of stack. 
Notes: 

Note that the main loop of this routine is slightly complicated 

by the need to allow the routine to be interrupted and restarted 


from its entry point. This requirement prevents RO from being 
partially updates several times during each trip through the loop. 
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55 55 1C 04 


55 6144 
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55 6144 
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Instead, RS i 
copied into R 


(R3)+,R5 


3; The next three instructions are reall 
; twice on each pass through the outer 
3; overhead, this inner loop is expanded in Line. 


; Get right 4 bits 


#°XFO,RS_R4 
#4,#28,R5,R5 

T RC_2 
(R1)CR4,R5 


#°XFO,RS,RG 
#4, #28,R5,R5 


OINT CRC_3 


(R1)CR49,R5 
R5,R0 

R2,10$ 
#*M<R4,R5,R10> 


R1 
RO 


=SEP=19 


to 
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used to record the partial modifications and R5 is 
at the last step (with the extra MOVL R5,RO). 


Pa 32 
™ (14) 


Clear unused bits & check for 0 length 


ALL done if zero 
Save R10 so it can hold handler 


Store address of condition handler 


Save contents Of sereten register 


Copy inicrc to R 


Save contents of scratch register 


Clear it out (we only use R 


3; This is the main loop that operates on each byte in the input stream 


MARK_POINT CRC_1 
; Include next byte 


the — of a loop that executes 
op. Rathe 


r than incur additional 


; Shift result right 4 


Include table entry 


Get right 4 bits 
Shift result right 4 


Include table entry 

Preserve latest complete result 
Count down loop 

Restore saved R4, R5, and R10 


Ri must be zero on exit 
Determine N- and Z-bits 


(Note that TSTL clears V- and C-bits) 


Return to caller 
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Functional Description: | 
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This routine receives control when an 4 hy violation occurs while 
executing within the emulator. This routine determines whether the 
exception occurred while Seeens tng a source or destination string. 
(This check is made based on the PC of the exception.) 

If the PC is one that is recognized by this routine, then the state of 
the instruction (character counts, string addresses, and the like) are 
restored to a state where the instruction/routine can be restarted 
after the cause for the exception is eliminated. Control is then 
passed to a common routine that sets up the stack and the exception 
parameters in such a way that the instruction or routine can restart 
transparently. 


If the exception occurs at some unrecognized PC, then the exception is 
id pe ts to the user as an exception that occurred within the 
emulator. 


There are two exceptions that can occur that are not backed up to a 
consistent state. 


1. If stack overflow occurs due to use of the stack by one of 
the VAX$xxxxxx routines, it is unlikely that this routine 
will even execute because the code that transfers control 
here must first copy the parameters to the exception stack 
and that operation would fail. (The failure causes control 
to be transferred to VMS, where the stack expansion logic is 
invoked and the routine resumed transparently.) 


2. If assumptions about the address space change out from under 
these routines (because an AST deleted a portion of the 
address space or a similar silly thing), the handling of the 
exception is UNPREDICTABLE. 


Input Parameters: 


RO = Value of SP when the exception occurred 

R1 = PC of exception 

R2 = Scratch 

R35 = Scratch Z 
Address of this routine (but that was aireedy used so R10 
can be used for a scratch register if needed 


 ] 
Wn 
Oo 
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| 
Saved RO (Contents of RO when exception occurred) 
Saved R1 (Contents of R1 when exception occurred) 
Saved R2 (Contents of R2 when exception occurred) 
Saved R35 (Contents of R5 when exception occurred) 
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Return PC in exception dispatcher in operating system 


20(SP) - First longword of system-specific exception data 
xx(SP) = First longword of system-specific exception data 
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MOOD NAN E WD  O OD NAME WIN © OD NAME WN  O OONOAU EWR OOONAUE WR" OVOOnOu 
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The address of the next longword is the position of the stack when 
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the exception occurred. This address is contained in RO on entry 
to this routine. 


RO => <4®<N+1> + 16>(SP) 


<4t<NtM> + 16>(SP) 
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Instruction-specific data 

ppt tones instruction-specific data | 
ave 

Return PC from VAX$xxxxxx routine (M is the number | 

of sgenryet legn~epecs tts longwords, including the 
saved R10. M is guaranteed greater than zero.) 


Implicit Input: 


It is assumed that the contents of all registers (except RO to R3) 
— into this routine are unchanged from their contents when the 
exception occurred. (For RO through R35, this assumption applies to the 
saved register contents on the top of the stack. Any modification to 
these registers must be made to their saved copies and not to the 
registers themselves.) 


It is further assumed that the exception PC is within the bounds of 
this module. (Violation of this assumption is simply an inefficiency.) 


ptnei ty. the macro BEGIN_MARK_POINT should have been invoked at the 
beginning of this module to define the symbols 
| 
| 
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hw hw h~h~h~) 4-4-4 ~)~4-4-4 4-4-4444 4-4-4 4 4-44-4444 4-4-4 AAA AA AAA AAA AAA AAA 


MODULE _BASE 
PC_TABCE_BASE 
HANDLER_TABLE_BASE 
TABLE_SIZE 


Output Parameters: 


If the exception is recogntzed (that is, if the exception PC is 
associated with one of the mark points), control is passed to the 
context=-specific routine that restores the instruction state to a 
uniform point from which it can be restarted. 


RO = Value of SP when exception occurred 
R1 = scratch 
R2 = scratch 
R35 = scratch 
R10 = scratch 


RO -> 22(SP) = Instruction-specific data begins here 


The instruction-specific routines eventually pass control back to the 
host system with the following register contents. 


DPD PUPS Be BS EE BE EB NINA AINIAIRIPOPIPINPINPINPONININY 2 


RO = Address of return PC from VAX$xxxxxx routine 
R1 = Byte offset from top of stack (into saved RO through R35) 

to indicate where to store the delta-PC (if so required) 
R10 = Restored to its value on entry to VAXS$Sxxxxxx 


If the exception PC occurred somewhere else (such as a stack access), 
the saved registers are restored and control is passed back to the 
host system with an RSB instruction. 


PUPWPV DVL PVPULULVIVLULVI VL VULUSIUS USUI USUSUSU SUSU USSU SU STASIS SISAL SISOS SISOS SISA ASIST 
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4 1669 ; Implicit Output: | 
D 187) : The register contents are modified to pus the peeeraeesete state of | 
D 1o7¢ 3 the instruction into a gene rotons ereee from which it can be 
DS 1675 ; continued. Any ae es to RO through R3 are made in their saved state 
DS 1674 ; on the top of the stack. Any scratch registers saved by each | 
DS 1675 ; VAXSxxxxxx veut ine are restored. 
D 1976 i- 
05 167 | 
D 1078 STRING_ACCVIO: 
52 D4 DS 167 CLR R2 : Initialize the counter 
FD25 cr OF D 1 9 PUSHAB MODU LE BASE ; Store base address of this module 
51 :) @ + 1 SUBL2 (SP)+,R ; Get PC relative to this base 
OOOO'CF42 51 BI DE 16 : 10$: CMPW R1,PC_TABLE_BASECR2] :; Is this the right PC? 
07 13 O2E4 1684 BEaL ~=s-«- 20 : Exit loop if true 
F452 17 ~«~F2 8 ef 195? AOBLSS #TABLE_SIZE,R2,10$ ; Do the entire table 
O2EA 1687 ; If we drop through the prapetentag based on PC, then the exception is not 
8 ‘A 1958 ; one that we want to back up. We simply reflect the exception to the user. 
OF BA O3EA 1690 POPR #*M<RO,R1,R2,R35> ; Restore saved registers 
05 psec 193) RSB ; Let VMS reflect the exception 
OSED 1698 3; The exception PC matched one of the entries in our 7C table. R2 contains 
O2ED 1694 ; the index into both the PC table and the handler table. R1 has served 
osee 169? ; its purpose and can be used as a scratch register. 
51 OO000°CF42 3C O2ED 1697 20$: MOVZWL HANDLER_TABLE_BASECR2],R1 3; Get the offset to the handler 
FDO8 CF41 17 O2F3 1698 JMP MODULE _BASECRTJ ; Pass control to the handler 
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- SUBTITLE Packing Routines for String Instructions 


Functional Description: 


OSOooCcoo 


These routines are weer to store the intermediate state of the state 
of the string instructions (except MOVTC and MOVTUC) into the registers 
that are altered by a given instruction. 


Parameters: 

RO = Points to top of stack when exception occurred 

See each routine- and context-specific entry point for more details. 
In general, register contents for counters and string pointers that 
are naturally Pracking through a tobe Fee not listed. Register 


contents that are out of the ordinary (different from those Listed 
in the intermediate state pictures in each routine header) are Listed. 


Output Parameters: 


SSN 


RO - Points to return PC from VAX$xxxxxx 
R1 = Locates specific byte in RO..R3 that will contain the delta-PC 


ALL scratch registers (including R10) that are not supposed to be 
altered by the routine are restored to their contents when the 
routine was originally entered. 


In all of the instruction-specific routines, the state of the stack 
will be shown as it was when the exception occurred. ALl offsets will 
be pictured relative to RO. In addition, relevant contents o 

through R3 will be Listed as located in the registers themselves, even 
though the actual code will manipulate the saved values of these 
registers located on the top of the stack. 


The *pparent arbitrary order of the instruction-specific routines is 
dictated by the amount of code that they can share. The most sharing 
occurs at the middle of the code, for instructions Like CMPCS and 
SCANC. The CRC yo pone because they are the only routines that store 
the delta-PC in R2 appear first. The CMPC3 instruction has no 
instruction-specific code that cannot be shared with all of the other 
routines so it appears at the end. 


. ENABLE LOCAL_BLOCK 


+ 
CRC Packing Routine 
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R4 = Scratch 
R5 = Scratch 


etek = Saved R4 
4(RO) = Saved R5 
08(RO) - Saved R10 
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12(R0) = Return PC 
If entry t) at CRC_2 or CRC_3, the exception occurred after the string 


pointer, R3, was advanced. That pointer must be backed up to achieve a 
consistent state. 


CRC_2: 
CRC_3: 
crc DECL PACK_L_SAVED_R3(SP) ; Back up string pointer 
- "mova = (RO) +, R4 ; Restore R4 and R5 
MOVZBL #CRC_B_DELTA_PC,R1 ; Indicate offset used to store delta-PC 
BRB 30$ ; Not much common code left but use it 
3? 
; MATCHC Packing Routine 
R4<15:0> - Number of characters in object string 
- Address of object string 
R6<15:0> = Number of characters remaining in source string 
- Updated pointer into source string 


Saved R4 
Saved R5 


Saved R10 
Return PC 
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e MATCHC instruction is backed up to the top of its inner loop. 
That is, when the instruction restarts, it will begin looking for a match 
between the first character of the object string and the latest starting 
character in the source string. 


MATCHC_1: 
~ mova R4,PACK_L_SAVED_RO(SP) ; Reset object string to its beginning 
mMOVQ R6,PACK_L_SAVED_R2(SP) ; Reset to updated start of source string 
MOVQ (RO)+, RZ ; Restore R4 and R5 
MOVQ (RO) +,R6 3 2+. and R6 and R7 
BRB 20$ ; Exit through common code path 


+ 
CMPC5 Packing Routine 
R4<7:0> - Fill character operand 
RO) = Saved R4 


00( 
04(RO) = Saved R10 
08(RO) = Return PC 


“MOVB = R4, CMPC5_B_FILL(SP) > Pack fill’ into RO<23:16> 
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03 «11 } ! 1 BRB 10$ ; Merge with code to restore R4 | : 
1 1816 ;+ : 
} 1H ; SCANC and SPANC Packing Routine | : 
0 } ! 19 ; R4 = Scratch | : 
p 18 1821 ; 8) (Ro? - Saved R4 3 
18 #1 ¢ ; 4(RO) = Saved R10 3 
8 : } ? ; 08(RO) = Return PC : 
0318 1825 ; If entry is at SCANC_2 or SPANC_2, the exception occurred after the string ; 
031 1 § ; pointer, R1, was advanced. That pointer must be backed up to achieve a : 
3 1827 ; consistent state. ; 
0318 1828 ;- 3 
0318 1829 : 
0318 1830 SCANC_ ; 
04 AE D7 3 1833 —— DECL PACK_L_SAVED_R1(SP) Back i i 
; Back up string pointer é 
0318 1838 SCANC_1: —! dist 
0318 183% SPANC_1: | 
54 80 DO 0O31B 1835 10$: MOVL (RO) +,R4 ; Restore R4 
09 #11 O3S1E 1836 BRB 20$ ; Exit through common code path 
0359 1837 
0320 1838 ;+ 
0390 1839 ; LOCC and SKPC Packing Routine 
0320 1840 ; 
0320 1841 ; R2<7:0> = Character operand | 
0520 184g | 
0320 1843 ; 00(RO) = Saved R2 
O350 1844 ; 04(RO) = Saved R10 
0320 1845 ; 08(RO) = Return PC 
0320 1966 = 
0320 184 
0320 1848 LOCC_1: 
0320 1849 SKPC"1: 
0320 1850 
8355 132) ASSUME LOCC_B_CHAR EQ SKPC_B_CHAR 
02 AE O8 AE 90 os 2 1888 MOVB PACK_L_SAVED_R2(SP),LOCC_B_CHAR(SP) ; Pack ‘‘char’’ into RO<23:16> 
08 AE 80 00 3 3 1338 MOVL (RO)*,PACK_L-SAVED_R2(SPY = Restore saved R2 
0329 1886 3¢ - A 
a3 4 } : ; CMPC3 Packing Routine 
; 9 1 35 ; 00(RO) = Saved R10 
8 9 1860 ; 04(RO) - Return PC 
3 1B) 
a. 86 ASSUME CMPC5_B_DELTA_PC EQ CMPC3_B_DELTA_PC 
9 1864 ASSUME SCANC_B_DELTA_PC EQ CMPC3_B_DELTA_PC 
9 1865 ASSUME SPANC’B’ DELTA PC EQ CMPC3'B DELTA PC 
; 9 1 66 ASSUME LOCC_B_BELTA_PC €Q cmPC3_B BELTA_PC 
9 186 ASSUME SKPC_B_DELTA_PC EQ CMPC B-DELTA PC 
3 3 i 68 ASSUME MATCAC"B_DELTA_PC EQ CMPC3~B_DELTA_PC 
03 9 1 4 CMPC3_1: 
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; Indicate that 4 gets delta PC 

; Restore saved R10 


; Insure that both of these bits 
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MOVZBL #CMPC3 
MOVEe’ (RODS AGO 


ASSUME PACK_V_FPD LE 15 
ASSUME PACKIV"FPD LE 15 


BISW #<PACK_M_FPD!- 
ACK_M-ACCVIO>,R1 
BRwW VAXSREFLECT_FAULT 


- DISABLE 


DELTA_PC,R1 


LOCAL _BLOCK 


can be contained in a word 


Indicate that FPD gets set 
Exception is an access violation 
Modify stack and reflect exception 
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] 
3 4 - SUBTITLE Packing Routines for MOVTC and MOVTUC 
: Functional Description: 
reer routines are used to store the intermediate state of the state 
of the MOVTC and MOVTUC instructions into the registers RO through RS. 
The “peta ne for keeping these tye routines separate from the rest 
of the string sneteust ons is that R10 is not stored directly adjacent 
to the return PC. This means that there is no code that can be shared 
with the rest of the instructions. 
Input Parameters: 
RO - Points to top of stack when exception occurred 
See the context-specific entry point for more details. 
Output Parameters: 
| 
| 
| 


RO = Points to return PC from VAX$xxxxxx 
Ril = Locates specific byte in RO..R3 that wil' contain the delta-PC 


ALL scratch registers (including R10) that are not supposed Me be 
altered by the routine are restored to their contents when th 
routine was originally entered. 

Notes: 


See the notes in the routine header for the storage routines for 
the rest of the string instructions. 
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MOVTC Packing Routine (if moving in the FORWARD direction) 


The entry points MOVTC_1, MOVTC_2, and MOVTC_3 are used uhgn moving the 
string in the forward direction. if the entry is at MOVTC_2, then the 
source and destination strings are out of synch and R1 must be adjusted 
(decremented) to keep the two strings in step. 


In the MOVE_FORWARD routine, there is a need for a scratch register before 
the fill character is used. R2 is used as this scratch and its original 
contents, the fill character, are saved on the stack. The entry points 
MOVTC_1 and MOVTC_2 have the stack in this state. 


R2 = Scratch 
QO(RO) = Saved R2 
04(RO) = Saved R10 
08(RO) = ed 


Saved RO 

231: 16> - Initial contents of RO 

<15:00> = Contents of RO at time of Latest entry to VAX$MOVTC 
12(RO) = Saved R4 

<31:16> - Initial contents of R4 

<15:00> - Contents of R4 at time of latest entry to VAX$MOVTC 
16(RO) = Return PC 


If entry is at MOVTC_3, then there are no registers other than RO and R4 
(and of course R10) Ehat are saved on the stack. 


OO(RO) - Saved R10 
04(RO) = Saved RO ; 

<31:16> - Initial contents of RO 

<15:00> = Contents of RO at time of latest entry to VAXS$MOVTC 
O8(RO) - Saved R4 

<31:16> = Initial contents of R4 

<15:00> = Contents of R4 at time of latest entry to VAXSMOVTC 
12(RO) = Return PC 


The following are register contents at the time that the exception occurred. 


RO - Number of bytes tg ddig to be modified in source ones 

Ri = Address of current byte in source ate is (except at MOVTC_2) 

R2 = Junk or fill character (if entry at MOVTC_3) 

R35 - Address of translation table (unchanged during execution) | 

R4 - Signed difference between current lengths of source and destination 
R5 - Address of current byte in destination string 


R10 - Access violation handler address (so can be used as scratch) 


Note that if R4 LSSU 0, then the value of RO represents the number of bytes 
in the source string renetaien to be modified. There are also excess bytes 
of the source string that will be untouched by the complete execution of 
this instruction. (In fact, at completion, RO will contain the number of 


unmodified bytes.) 

Note further that entry at novrc.5 fi impossible with R4 LSSU 9 because 
MOVTC_5 indicates that an access v#olation occurred while storing the 
fill Character in the destination and that can only happen when the output 
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q 197 : string is longer than the input string. 
7 1974 : The state that must be modified before being stored depends on the sign of | 
f 1302 ; R4, which in turn depends on which of source and destination is longer. | 
f 1377 ; R4 GEQU 0 => srclen LEQU dstlen | 
0337 1399 : RO - unchanged | 
8 1389 $ R4 = increased by RO (R4 <= R4 + RO) 
03 4 i ; R4 LSSU 0 => srclen GTRU dstlen 
7 198% ; RO = increased by negative of R4 (RO <= RO + ABS(R4)) 
0337 138? : R4 - replaced with input value of RO (R4 <= RO) 
83 7 19 § = 
0337 198 
83 7 1988 ENABLE LOCAL_BLOCK 
337 1989 
0337 1990 MOVTC_2: 
04 AE D7 0337 1991 DECL PACK_L_SAVED_R1(SP) ; Back up source string 
O33A 1236 
033A 1993 MOVTC_1: 
08 AE 80 DO O33A 1994 MOVL (RO)+,PACK_L_SAVED_R2(SP) ; Restore contents of saved R2 
54 D5 033E 1995 TSTL = RG ; R4 LSSU 0 => srclen GTRU dstlen 
0B 18 0340 1996 BGEQ ; Branch if srclen LEQU dstlen 
5A 54 CE bere 1997 MNEGL R4,R10 ; Save absloute value of difference 
54 6E «=O s0345 1998 MOVL PACK_L_SAVED_RO(SP),R4 : Get updated dstlen (R4 <= RO) 
6—€ SA CO 0348 1999 ADDL R10,PACK_L_SAVED_RO(SP) ; ... and updated srclen (RO <= RO = R4) 
os v1 oae8 p00 BRB 10$ 
A. €& 8325 OOe 5$ ADDL PACK_L_SAVED_RO(SP),R4 ; Reset correct count of destination 
0350 2004 MOVTC_3: 
5A 80 00 O32 444 10$: MOVL (RO)+,R10 ; Restore saved R10 
Ose 44 ASSUME MOVTUC_W_INISRCLEN EQ MOVTC_W_INISRCLEN 
02 AE 02 A0 BO 035 009 MOVW 2(RO) ,MOVTC_W_INISRCLEN(SP) ; Save high-order word of RO 
50 04 CO 0358 2010 ADDL #4,R ; Point RO to saved R 
60 54 80 baee 011 MOVW R4, (RO) : Store low order R4 in saved R4 
54 80 00 O35 Og MOVL  (RO)+,R4 : Restore all of R4 
361 bie ASSUME MOVTUC_B_DELTA_PC EQ MOVTC_B_DELTA_PC 
2 O16 3 Indicate that R2<31:24> gets delta-PC and cause the FPD bit to be set 
51 00000308 8F 00 61 818 MOVL #<MOVTC_B_DELTA_PC!- ; Locate delta-PC offset 
6 01 PACK_M_FPD!- : Set FPD bit in exception PSL 
? 9 PACK_M_ACCVIO>,R1 ; Indicate an access violation 
6 g ASSUME MOVTUC_M_FPD EQ MOVTC_M_FPD 
6 ; ASSUME MOVTUC~B-FLAGS EQ MOVTC_B_FLAGS 
09 AE 01 $s 6 5 BISB #MOVTC_M_FPD,MOVTC_B_FLAGS(SP) ; Set internal FPD bit 
FC91" 036C 6 BRWw VAXSREFLECT_FAULT ; Reflect exception to user 
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; MOVTC Packing Routine (if moving in the BACKWARD direction) 


The entry points MOVTC_4, MOVTC_5, and MOVTC_6 are used when moving the 
; string in the backward direction. If the entry is at MOVTC_6, then the 
; source and destination strings are out of synch and R1 must be adjusted 
; (incremented) to keep the two strings in step. 


OOOCOoO 


nn 


; At entry eyts MOVTC_5 and MOVTC_6, we must reset the source string 
; pointer, R1, to the Beginning of the string because it is qurrentty set up 
; to traverse the string from its high-address end. The details of this reset 
; operation depend on the relative lengths of the source and destination 

; strings as described below. 


; At all three wry points, we must reset the destination string 
pointer, 25, to the beginning of the string because it is currently 
set up to traverse the string from its high- 


| 
address end. 
(RO) = Saved R10 
(RO) = Saved RO 
<31:16> = Initial contents of RO 

<15:00> = Contents of RO at time of Latest entry to VAX$MOVTC 
08(RO) = Saved R4 

<31:16> - Initial contents of R4 

<15:00> = Contents of R4 at time of Latest entry to VAX$MOVTC 

12(RO) = Return PC 


The following are register contents at the time that the exception occurred. 


RO - Number of bytes ws to be modified in source strin 
4 - aerate of current byte in source string (except at MOVTC_6) 
- scratc 
R35 - Address of translation table (unchanged during execution) 
R4 - Signed difference between current lengths of source and destination 
R5 - Address of current byte in destination string 


R10 - Access violation handler address (so can be used as scratch) 


PARARARARAAAAAAAAAAE BERBER EEE RWWA 


Mrn 
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Note that if R4 LSSU 0, then the value of RO represents the number of bytes 
in the source string remaining to be modified. There are also excess bytes 
of the source de 5 that will be untouched by the complete execution of 
this instruction. (In fact, at completion, RO will contain the number of 
unmodified bytes.) 
| 
| 


Note further that entry at MOVTC_4 is impossible with R4 LSSU 0 because 
MOVTC_4 indicates that an access violation occurred while storing the 
fill character in the destination and that can only happen when the output 
string is longer than the input string. 


Ss Be Bom Bom Dem Dna Bn Dn Don Doe Die Die Di Di Bi Die Die Bi De i De Be De BD Ds Be De Bs De Bos Bs Ds Bes es es i Be Be Be Bs Be De Be Bs es es 


The state that must be modified before being stored depends on the sign of 
R4, which in turn depends on which of source and destination is longer. 


R4 GEQU 0 => srclen LEQU dstlen 
RO - unchanged 


R1 = backed up by RO (R1 <= RI = RO) 
» A by Ro (R4 <= R4 + RO) 
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or 5 3 R5 = backed up by new value of R4 (R5 <= RS = R4) | 
or - 3 R4 LSSU 0 => srclen GTRU dstlen 
6F : ; RO - increased by negative of R4 (RO <= RO + ABS(R4)) 
6F 0; R1 = backed up by input value of RO (R1 <= R1 = RO) 
6F 91; R4 - replaced with input value of RO (R4 <= RO) 
8 oF O36 3 RS = backed up by new value of R4 (R5 <= RS = R4) 
O36F 2094 ; Note that R1 is modified before RO is changed 
O36F 2095 ;- 
S3er 5099 
6F 2097 MOVTC_6: 
04 AE 06 bao 44 INCL PACK_L_SAVED_R1 (SP) ; Undo Last fetch from source string 
0372 100 MOVTC_5: 
04 AE 6E C2 0372 2101 SUBL § PACK_L_SAVED_RO(SP) ,PACK_L_SAVED_R1(SP) 
0376 196 3; Point R1 to start of source string 
54 D5 0376 210 TSTL R4 3; R4 LSSU 0 => srclen GTRU dstlen 
0B 18 0378 2104 BGEQ 0$ : Branch if srclen LEQU dstlen 
SA 54 CE OQ37A 2105 MNEGL R4,R10 ; Save absloute value of difference 
54 6E DO 037D 106 MOVL PACK L.SAVED_RO(SP),R4 ; Get updated dstlen (R4 <= RO) 
6— SA C0 $330 107 ADDL R10,PACK_L_SAVED_RO(SP) ; ... and updated srclen (RO <= RO = R4) 
03 11 038 108 BRB 
0385 2109 
0385 2110 MOVTC_4: ; 
54 6€ CO 0385 2111 ene: ADDL PACK _L_SAVED_RO(SP),R4 ; Treat two strings as having same length 
55 54 C2 0388 M6 O$: SUBL R4,R5 ; Point R5 to start of destination string 
C3 «#611 «#0388 211 BRB 10§ ; Join common code 
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MOVTUC Packing Routine 

; Note that R7 is used to count the number of remaining characters in the 

strings. The other two counts, RO and R4, are set to contain their final | 

; values. 

; If RO was initially smaller than R4, 

RO - 0 

R4 = Difference between R4 and RO (R4-R0) 

R7 = Number of characters remaining in source (shorter) string 
If RO was initially larger than R4, 

a? -  pahepinsec between RO and R4& (RO-R4) 


R7 - Number of characters remaining in destination (shorter) string 


In either case, the stack when the exception occurred looks Like this. 


R6 - Scratch ‘ ; 
R7 = Number of characters remaining in two strings 


(RO) = Saved R6 
(RO) = Saved R7 
(RO) = Saved R10 
(RO) = Saved RO 
<31:16> - Initial contents of RO 
<15:00> = Contents of RO at time of latest entry to VAXS$MOVTUC 
16(RO) = Saved R4 E 
<31:16> - Initial contents of R4 
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| 
8 <15:00> = Contents of R4 at time of latest entry to VAX$MOVTUC 
§ 20(RO) = Return PC 
8 ; If the entry is at MOVTUC_2 or MOVTUC_3, then the source and 
8 destination gtr ings are out of synch and R1 must be adjusted 
: ; (decremented) to keep the two strings in step. | 
8 MOVTUC_2: | 
: MOVTUC_5: 
04 AE D7 : DECL PACK_L_SAVED_R1(SP) ; Back up source string pointer 
9 MOVTUC_1: 
6— 57 C0 9 ADDL R7,PACK_L_SAVED_RO(SP) ; Readjust source pages count 
54 57 ¢ 9 ADDL R7,R4 3 «+. and destination string count 
56 «680)«— 7D SC(039 MOVG = (RO) +, R6 ; Restore saved R6 and R7 | 
So 9 o7 BRB 10$ ; Join exit path shared with MOVTC 
8 -DISABLE LOCAL_BLOCK 
44 END_MARK_POINT 
3 31 
9B 0 -END 
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! ; Psect synopsis ! 


weoceee wanecenas$ | 


PSECT name Allocation PSECT No. Attributes | 
» 66 4 $08 00 i” -») 0O ¢ QO.) NOPIC USR CON ABS _ LEL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 88 : ( -) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR’ €E RD WRT NOVEC BYTE 
VAXSCODE 00 B (¢ 923.) ¢ ( ¢°3 PIC USR CON REL LCL as E 

PC_TABLE 000 se .- Sen ( ) PIC USR CON REL LCL SHR NOE RD NOWRT NOVEC BYTE 
HARDLER_TABLE OOOOO2E ( 46.) O04 ¢ 4.) PIC USR CON REL LCL SHR NOE RD NOWRT NOVEC BYTE 
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' Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


XE 

XE 

WERE RB NOWRT NOVEC LONG | 
| 
| 
| 


Initialization 16 00:00:00.05 00:00:01.23 
Command processing 76 B08 OR 86 00:00:04.46 
Pass 1 189 0:00:05.84 B2:88 361-60 
Symbol table sort 0 0: Rhy 5 00:00: g-77 
Pass 2 370 0:00:04.05 00:00:1 06 
Symbol table output 00:00:00.07 00:00:00.0 

Psect synopsis output 00:00:00.03 00:00:00.03 
Cross-reference output bs Be Bo + 8 308-82 
Assembler run totals 66 0:00:10.7 00:00:43.2 


41149 bytes (81 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 197 non-local and 58 local symbols. 
170 source Lines were read in Pass 1 "ain" 20 object records in Pass 2. 

6 pages of virtual memory were used to define 24 macros. 
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See wee OO ER Ee eee } 


| 
The working set Limit was 1500 pages. 
Macro Library name Macros defined 

~$255$DUA28: CEMULAT .OBJ ]VAXMACROS .MLB; 1 15 

“$255$DUA28:(SYSLIBISTARLET.MLB; 2 5 

TOTALS (all Libraries) 20 | 
301 GETS were required to define 20 macros. | 
There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:VAXSTRING/OBJ=OBJ$:VAXSTRING MSRC$:VAXSTRING/UPDATE=(ENH$: VAXSTRING) +LIB$: VAXMACROS/LIB 
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